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REMARKS 

In the Office Action of February 14, 2003, the Examiner objected to the abstract. 
Responsive to the objection to the Abstract of Disclosure, Applicants submit herewith a new 
Abstract describing the subject matter of the application. 

The Examiner also objected to the Amendment filed on February 27, 2002, under 35 
U.S.C. §32 as introducing new matter. The Examiner has stated that claims 6-9 contain allowable 
subject matter, but the subject matter was not supported by the original disclosure. The Examiner 
considered as new matter that the movable barrier operator comprises a controller for changing the 
force according to changes of temperature detected by the temperature detector (Claims 6 and 8). 
The Examiner also considered as new matter that the controller increases the force when a decrease 
in temperature has been detected (Claim 7 and 9). 

Claims 6-9 have been amended to clarify the subject matter of the invention, and 
- respectfully submit that the claims as amended are fully supported by the specification as originally 
filed. The Amendments to claims 6-9 delete references to changing the force applied to the door in 
response to temperature and insert that a maximum force setting is changed in response to 
temperature. The maximum force setting is the value at which the barrier stops or reverses. 

The application relates to a movable barrier operator which includes a combination 
of a controller and a temperature sensor. The controller includes a microcontroller with a non- 
volatile memory associated with it, which can store the maximum force set point and a simulated 
temperature of the motor. The temperature sensor (detector) 120, which is a part of the controller 
70 and is connected to the microcontroller 84, is shown in FIG. 2 and FIG. 3C. The temperature 
sensor senses the ambient temperature within the head unit in proximity with the electrical motor 
and the microcontroller updates the temperature stored in the non- volatile memory every 15 
minutes (page 17, line 9). 

The maximum force is the force, which applied to the door for an auto-reverse 
movement when the door meets an obstacle and stops in the mid-travel. Please note that the force 
applied to the door is measured by the time taken to move the door through a distance, the force 
period, as disclosed, for example, at page 20, line 35, and in Appendix, page A-78, wherein the 
maximum force is determined through the rpm period. Accordingly, the maximum force setting 
disclosed in the application and the present amendment are expressed in terms of time. In step 602a 
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test is provided whether the force period as indicated is longer than the force period stored in the 
down travel array for the current position of the door. (See page 19, lines 4-9). At the beginning of 
the force setting routine, step 630 ( FIG. 6 A), the maximum force is set to its minimum value, from 
which it later can be incremented. 

When the door is stopped in mid-travel, the force period is tested against the force 
period value stored in the memory for the current position of the door. If the maximum force 
period is longer than the stored value, the auto-reverse stage is entered. As could be seen from 
FIGS. 6A-6G, the maximum force is set to the minimum value (step 630), and is later increased if 
necessary (step 644) until the maximum force value is enough to start the movement of the barrier 
(step 694). When the decrease in temperature is detected, the set value of the maximum auto- 
reverse force is not enough to run the barrier and a constant related to the force of the motor 
movement ForceAdd (force adder) is added to the current maximum force value (see Appendix, 
Force adder from temperature, page A- 17, lines 13-19; and page A-71 "Set The Autorev State" line 
27). The value for the maximum force is chosen from the force table according to the position 
(Appendix, page A-82). The increment, or force adder is determined from the table according to the 
measured temperature as shown in "Temperature measurement" section of the Appendix (pages A- 
90 -A92). The updated maximum force is set in the memory. 

The Code Listing Appendix and a CD with the code were filed as a part of the 
original application. A reprint of the Appendix with the garage door operator code is enclosed 
herewith, with the relevant parts highlighted in red. 

It is clearly seen from the above that the specification as originally filed contains the 
matter claimed in claims 6-9, and therefore the application is allowable. It is respectfully requested 
that the examiner reconsidered the decision issued in the Office Action and allowed the application. 

The Commissioner is hereby authorized to charge any additional fees which may be 
required in this application under 37 C.F.R. §§1.16-1.17 during its entire pendency, or credit any 
overpayment, to Deposit Account No. 06-1 135. 
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Should no proper payment be enclosed herewith, as by a check being in the wrong 



amount, unsigned, post-dated, otherwise improper or informal or even entirely missing, the 
Commissioner is authorized to charge the unpaid amount to Deposit Account No. 06-1135. 



120 South LaSalle Street 
Suite 1600 

Chicago, Illinois 60603-3406 
Telephone: (312) 577-7000 
Facsimile: (312)577-7007 



Respectfully requested, 



FITCH, EVEN, TABIN & FLANNERY 





Registration No.: 25,747 
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version turns off the rpm disable counteractive 
and is set for using the schmitt trigger 



11 = Switch state to discharge P3 = 0101 XXXX FOR NEW LAYOUT 

Clear the radio codes from RTO 
or new code flag "output RTO" 

Note temp is temp +40 



change temp adder for running reset change stall temp adder 

Note remove from set any clr switchjdata and clr radio_cmd 

add fill before the 101 org 

dn_limit and 2X up_limit commented out 

REMOVED THE UP LIMIT & DOWN LIMIT 
CONDITIONAL OF RPM CAUSING FORCED UP STATE 



45 46 
******* 

* * 
44 * 47* 



4A 4B 
******** 

* * 
49 * 4C* 4E * 



4F 
* 



;42*43* 



****** 
48 



****** 
4D 



Jog 



30 



31 
***** 

32 



******* 

* 

* 



********* 
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Position is done from rpm only direction is assumed from the state of the 
system 



State 

Autoreverse Down 

Up_Direction 

Up_Position Up 

Reset Up 

Dn_Direction 

Dn Position Down 



Assumed Direction 



Up 



Down 



Stop 



Up 



;The position counter is zeroed at the end of the patterned IR interruption 
; in the down direction and increases 

; from there to the max position which is the down limit 

; the patterned position is from the bottom of the door having a 3/4 inch bar, 
; a 3/4 inch space then another 3/4 inch bar 

; since the gdo is giving 80 pulses for ever rotation of the upper sproket we 
have 

; 6 touth => 20 rpm pulses 
; 8 touth => 15 rpm pulses 
;10 touth => 12 rpm pulses 

;The set up will be done from the program mode being set and the wall control 
being activated 

; the door will travel up first then down and reverses off a .5 inch obstruction 
; at the reversal point the position number is the max position 
; Startup shall be in the up direction 



RS 232 is done from the wall control baud is 1200 



Secondary state machine for learning 

42 Stop All Travel 

43 Delay .5 seconds 

44 Set up direction 

45 At up limit 

46 Delay .5 second 

47 Down travel 

48 Arev 

49 Up travel 

4 A At up limit 

4B Delay .5 seconds 

4C Down travel 

4D Arev 

4E Up travel 

4F At up limit 

else clear 



NON-VOL MEMORY MAP 



00 


AO 


01 


AO 


02 


Al 


03 


Al 


04 


A2 


05 


A2 


06 


A3 


07 


A3 


08 


A4 


09 


A4 


OA 


A5 




OB A5 

OC A6 

; OD A6 

OE A7 

OF A7 

10 A8 

11 A8 

12 A9 

13 A9 

14 A10 

15 A10 

16 All 

17 All 

18 B 

19 B 
1A C 
IB C 

1C CYCLE COUNTER 1ST 16 BITS 

ID CYCLE COUNTER 2ND 16 BITS 

IE VACATION FLAG 

Vacation Flag , Last Operation 
0000 XXXX in vacation 

1111 XXXX out- of vacation 

IF A MEMORY ADDRESS LAST WRITTEN 

; Max speed 1800 RPM => 150 pulses / sec * 27 seconds => 4050 pulses max => 15 
groups 



20 


Up 


Force 


1 


0000- 


EFFF 


21 


Up 


Force 


2 


FFFF- 


FF00 


22 


Up 


Force 


3 


FEFF- 


FE00 


23 


Up 


Force 


4 


FDFF- 


FD00 


24 


Up 


Force 


5 


FCFF- 


FC00 


25 


Up 


Force 


6 


FBFF- 


FB00 


26 


Up 


Force 


7 


FAFF- 


FA00 


27 


Up 


Force 


8 


F9FF- 


F900 


28 


Up 


Force 


9 


F8FF- 


F800 


29 


Up 


Force 


10 


F7FF- 


F700 


2A 


Up 


Force 


11 


F6FF- 


F600 


2B 


Up 


Force 


12 


F5FF- 


F500 


2C 


Up 


Force 


13 


F4FF- 


F400 


2D 


Up 


Force 


14 


F3FF- 


F300 


2E 


Temperature 


of motor 


2F 


Up Limit 


setting 





30 


Down 


Force 


1 


0000- 


EFFF 


31 


Down 


Force 


2 


FFFF- 


FF00 


32 


Down 


Force 


3 


FEFF- 


FE00 


33 


Down 


Force 


4 


FDFF- 


FD00 


34 


Down 


Force 


5 


FCFF- 


FC00 


35 


Down 


Force 


6 


FBFF- 


FB00 


36 


Down 


Force 


7 


FAFF- 


FA00 


37 


Down 


Force 


8 


F9FF- 


F900 


38 


Down 


Force 


9 


F8FF- 


F800 


39 


Down 


Force 


10 


F7FF- 


F700 



3A Down Force 11 F6FF-F600 

3B Down Force 12 F5FF-F500 

3C Down Force 13 F4FF-F400 

3D Down Force 14 F3FF-F300 

3E Last operation and reason 

3F Down Limit setting 



RS232 DATA 



INPUT OUTPUT 

"0" 30H Switches and mode 

0011XXX0 Command switch not closed 

0011XXX1 Command switch closed 

0011XX0X Light switch not closed 

0011XX1X Light switch closed 

0011X0XX Vacation switch not closed 

0011X1XX Vacation switch closed 

"1" 31H System status 

0011XXX0 Not in vacation mode 

0011XXX1 In vacation mode 

0011XX0X Worklight off 

0011XX1X Worklight on 

0011X0XX No Aobs Errors 

0011X1XX Aobs errors 

"2" 32H RPM period 

"3" 33H 

0011XXX0 Learn switch not closed 

0011XXX1 Learn switch closed 

0011XX0X Not in learn mode 

0011XX1X In learn mode 

0011X0XX Window not active 

0011X1XX Window active 

"4" 34H Radio memory codes Page 00 

32 BYTES 

"5" 35H Radio memory codes Page 10 

32 BYTES 

"6" 36H Up force table, Up limit, and motor temp. 

"7" 37H Down force table, down limit, and last operation 

"8" 38H MEMORY TEST AND ERASE ALL!! 

00 OK 

FF ERROR 

"9" 39H Set program mode 
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"A" 41H 

"B" 42H 

"C" 43H 

"D" 44H 

"E" 45H 

"F" 46H 

"G" 47H 

"H" 48H 

"I" 49H 

"J" 4 AH 

"K" 4BH 

"L" 4CH 

"M" 4DH 

"N" 4 EH 

"0" 4FH 

"P" 50H 

"Q" 51H 

"R" 52H 

"S" 53H 

"T" 54H 
"U"55H 



Present position of travel 
Position = First byte * 256 + second byte 

Down limit position 
Down limit = First byte * 256 + second byte 

Up limit position 
Up limit = First byte * 256 + second byte 

Max force 

Max force = First byte * 256 + second byte 

Force setting up direction 
Force = First byte * 256 + second byte 

Force setting down direction 
Force = First byte * 256 + second byte 

Window size 

Window active 
"0" off 
"1" on 

Give a command sets the command debouncer 
for normal command send a "P" then "I" 

for learning limit send "Q9I" then a "P" when at up position 

READ the temperature of the logic board + 40C 

READ the temperature of the motor + 40C 

9 For normal operation not in learn 
0 Min force 
1 
2 

3 Max forces 
Vacation switch command 
Light switch command 
Force adder 

Clear the command debouncer 
Set the command debouncer 

Last Radio code received if new else nothing 

Temperature PCB ASCII 

Temp motor ASCII Temperature PCB ASCII 

Wake up code to set rs232 mode 
Returns the version 




V" 56H 



State ASCII 



"0" Autorevers delay 

"1" Traveling in the up direction 

"2" At the up position 

"3" Error 

"4 M Traveling in the down direction 
"5" At the down position 
"6" Stopped in mid travel 

"W" 57H Reason ASCII 

"0" Command 
"1" Radio command 
"2" Force 
"3" Protector 
"4" Autoreverse delay 
"5" Limits 
"6" Early limits 
"7" Timeout 
"8" RPM forcing up 
"9" Cmd held to limits 
"A" B code to the limits 
"B" Over temperature 
"F" No Pass Point 

"X" 58H Fault code ASCII 

"Y" 59H Straps ASCII 

00110X00 10 tooth 

00110X01 9.5 tooth 

00110X10 6 tooth 

00110X11 8 tooth 

001100XX Thermal protector off 

001101XX Thermal protector on 



f Z" 5 AH Fixed table window off 



Rs232 learn limits 

output "Q9I" when at up limit position "P" 



DIAG 



1) AOBS shorted 

2) AOBS open / miss aligned 

3) Protector intermittenent 

4) Over temp 

5) Memory bad 



6) No RPM in the first second 

7) RPM forced a reverse 



DOG 2 



DOG 2 IS A SECONDARY WATCHDOG USED TO 

RESET THE SYSTEM IF THE LOWEST LEVEL "MAINLOOP" 

IS NOT REACHED WITHIN A 3 SECOND 



Conditions 



Yes 


.equ 


Ih 




No 


.equ 


Oh 




E21 


.equ 


Yes 




DownToLimits 




.equ 


No 


TempMeasureFlag 


. equ 


Yes 




ForceTempCompFlag 


. equ 


Yes 




ThermalProtectorFlag 


.equ 


Yes 


temperature 








PSBlockFlag 


. equ 


No 




AOBSBypass 


.equ 


No 




PassProtector 




.equ 


Yes 


protector or 








RTD 


.equ 


Yes 





; E21 or C33 8K 

; command held bypass 
; else set temperature to 85C 
; else set force to . 5mS adder 

; else skip test for motor 

; need . 5 inch block 

; Protector not bypassed from cmd of B 
; is the pass point the 

; the switch pass point 

; is the thermal device a RTD 



EQUATE STATEMENTS 



MINAR 
MAXAR 
UpDownTime 



.equ 7D 
.equ 150d 
.equ 03d 



min # rpm pulse for interruption 
max # rpm pulse for pass point 



distance verses tooth 

Pulses / Inch = Pulses / Motor rev * Motor rev / Shaft rev * Shaft rev / Teeth 



Teeth / Inch 

for 6 tooth = 5 * 16 

for 8 teeth = 5 * 16 

for 9.5 tooth = 5 * 16 

for 8 teeth = 5 * 16 



1/6*2= 26. .666 
1/8*2= 20 
1/9.5 * 2 = 16.84 
1/10 * 2 = 16 



LlOHi 
LlOLo 



.equ OOh 
.equ 8D 



; 10 tooth 



L9P5H1 



.equ OOH 



; 9.5 tooth 



L9P5LO 



•equ 9D 



L8Hi 
L8LO 

L6Hi 
L6L0 

TempRunlncHi 
TempRunlncLo 
running 

TempStalllncHi 
TempStalllncLo 
stalled 

T27Adder 

UpSetMaxTemp 
DnSetMaxTemp 
Version 

check_sum_value 
TIMER_0 
TIMER_0_EN 
TIMER_1_EN 

MOTOR_HI 

MOTOR_LO 

LIGHT 

LIGHT_ON 

MOTORJJP 

MOTOR J)N 

DN_LIMIT 

UP_LIMIT 

DIS_SW 

CDIS_SW 

SWITCHES 

CHARGE_SW 

CCHARGE_SW .EQl 

COMPARATORS .EQl 

DOWN_COMP 

UP_COMP 

P01M_INIT 

P2M_INIT 

P3M_INIT 

P01S_INIT 

P2S_INIT 

P3S INIT 



.equ OOh 

.equ 10D 

.equ OOh 

.equ 13D 



,equ OOh 
, equ 5Ch 



.equ OOh 
.equ 0B8h 





005H 


.equ 


160d 


. equ 


155d 




.equ 72H 


.equ 


05 AH 


.EQU 


10H 


.EQU 


03H 


.EQU 


OCH 


.EQU 


034H 


.EQU 


OBCH 


.EQU 


OFFH 


.EQU 


02H 


.EQU 


01H 


.EQU 


04H 


.EQU 


02H 


.EQU 


01H 


.EQU 


10000000B 


.EQU 


01111111B 


.EQU 


01000000B 


.EQU 


00100000B 


11011111B 


30H 




.EQU 


20H. 


.EQU 


10H 


.EQU 


01000100B 


.EQU 


11100000B 


.EQU 


00000001B 


.EQU 


00000010B 


.EQU 


10000010B 


.EQU 


10100000B 



; 8 tooth 
; 6 tooth 

; rate of temperature increase 
; every second 

r 

; rate of temperature increase 

; every second 

; adder if running when reset 

; max temp to set this state 
; max temp to set this state 

; set the' version number 



set mode p00-p03 out p04-p07in 

set port3 p30-p33 input DIGITAL mode 



FLASH .EQU OFFH 

WORKLIGHT .EQU 02H 

COM_CHARGE . EQU 2 

WORK CHARGE .EQU 20 



VAC_CHARGE .EQU 80 

COMJHS .EQU 01 

WORKJHS .EQU 04 

VACJDIS .EQU 24 

CMD_TEST .EQU 00 

WL_TEST .EQU 01 

VACJTEST .EQU 02 

CHARGE .EQU 03 

AUTO__REV .EQU 00H 

UP_DIRECTION .EQU 01H 

UPJPOSITION .EQU 02H 

DN_D I RECT I ON .EQU 04H 

DEPOSITION .EQU 05H 

STOP .EQU 06H 

CMD_SW .EQU 01H 

LIGHT_SW .EQU 02H 

VAC SW .EQU 04H 



PERIODS 



AUTO_HI 

AUTO_LO 

FLASH_HI 

FLASH_LO 

SET_TIME_HI 

SET_TIME_LO 

SET_TIME_PRE 

ONE_SEC 

SwPeriod 

RsPeriod 



.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
. equ 
.equ 



00H 

0F4H 

00H 

07 AH 

02H 

02H 

0FBH 

0F4H 

150d 

104d 



auto rev timer .5 sec 

.25 sec flash 

4.5 MIN 
4.5 MIN 
4.5 MIN 

WITH A 12 IN FRONT 

switch period = 300uS 

RS232 period 2400 Baud 208uS 



CMDJ1AKE 


.EQU 


8D 




; cycle 


count 


*10mS 


CMD BREAK 


.EQU 


(255D- 


8D) 








LIGHT MAKE 


.EQU 


8D 




; cycle 


count 


*llmS 


LIGHT BREAK 


.EQU 


(255D- 


8D) 








VAC MAKE OUT 


.EQU 


4D 




; cycle 


count 


*100mS 


VAC BREAK OUT 


.EQU 


(255D- 


4D) 








VAC MAKE IN 


.EQU 


2D 










VACJBREAK__IN 


.EQU 


(255D- 


2D) 








VAC DEL 


.EQU 


8D 










CMD DEL EX 


.EQU 


4D 










VAC DEL EX 


.EQU 


50D 











ADDRESSES 



AddressAO 


• equ 


00H 






• equ 


02H 




AddrpssA2 


. equ 


04H 




Addrp*?sA3 


. equ 


06H 




AUU 1. C O Oil" 


. equ 


08H 




AddressA5 


. equ 


OAH 




AddressA6 


. equ 


OCH 




AHHt~p«>c5A7 


• 6qU 


OEH 




AddressA8 


. equ 


10H 




AddressA9 


• equ 


12H 




AddressAlO 


.equ 


14H 




AddressAll 


.equ 


16H 




AddressB 


.equ 


18H 




AddressC 


.equ 


1AH 




AddressCounter 




. equ 


1CH 


AddressVacation 


. equ 


1EH 




AddressApointer 


.equ 


1FH 




AddressUpForceTable 


.equ 


20H 


AddressTemperature 




.equ 


2EH 


AddressUpLimit 




.equ 


2FH 


AddressDownForceTable . 


equ 


30H 


AddressLastOperation 


.equ 


3EH 


AddressDownLimit 


.equ 


3FH 





.IF E21 
ALL_ON_IMR 
RadioOfflMR 
cycle 

RETURN_IMR 

.ELSE 
ALL_ON_IMR 
RadioOfflMR 
cycle 

RETURN_IMR 

.ENDIF 



.equ 00111111b 

.equ 00111100B 

.equ 00111111b 

.equ 00111101b 

.equ 00111100B 

.equ 00111101b 



turn on int for timers rpm auxobs 
turn radio off durring autolearn 

return on the I MR 

turn on int for timers rpm auxobs 
turn radio off durring autolearn 

return on the IMR 



GLOBAL REGISTERS 



STATUS 

STATE 

FORCE_PRE 

FORCE_I GNORE 

AUTO_DELAY_HI 

AUTO_DELAY_LO 

AUTO_DELAY 

MOTOR_TIMER_HI 

MOTOR JTIMERJ.O 

MOTOR_TIMER .EQU 

LIGHT_TIMER_HI 

LIGHTJTIMER_LO 

LIGHT_TIMER 

FourDFlag 

PRE LIGHT 



.EQU 


04H 


.EQU 


05H 


.EQU 


06H 


.EQU 


07H 


.EQU 


08H 


.EQU 


09H 


.EQU 


08H 


.EQU 


OAH 


.EQU 


0BH 


OAH 




.EQU 


OCH 


.EQU 


0DH 


.EQU 


OCH 


.equ 


OEH 


.EQU 


0FH 



; state register 



TIMER GROUP .EQU 


10H 






r srto 


, equ 


r5 






. equ 


r6 




rs232do 




. ecru 


r7 


rs232di 




. equ 


r8 


rscoitutiand 


. equ 


r9 




rs_temp_hi 


.equ 


rlO 




rs_temp_lo 


.equ 


rll 




rs__temp 


.equ 


rrlO 




rs232docount 




.equ 


rlO 


rs232dicount 




.equ 


rll 


rs232odelay 


.equ 


rl2 




rs232idelay 


.equ 


rl3 




rs232page 


.equ 


rl5 





VACCHANGE 


.EQU 


TIMER 


GROUP+0 


VAC FLASH 


.EQU 


TIMER 


"group+i 


VAC FLAG 


.EQU 


timer" 


"GROUP+2 


FAULT 


.EQU 


timer" 


"GROUP+ 3 


R_DEAD_T IME 


.EQU 


timer" 


~GROUP+4 


RsRto 


.EQU 


timer" 


"GROUP+5 


OBS_FLAG 


.EQU 


timer 


"GROUP+6 


RS232DO 


.EQU 


timer" 


"GROUP+7 


RS232DI 


.EQU 


timer" 


"GROUP+8 


RS COMMAND 


.EQU 


timer" 


"GROUP+9 


RS 2 3 2 DOCOUNT 


.EQU 


timer] 


"group+io 


RS232DICOUNT 


.EQU 


timer" 


"group+ii 


RS2320DELAY 


.EQU 


timer" 


"GROUP+12 


RS232IDELAY 


.EQU 


timer] 


"GROUP+13 


Jog 


.EQU 


timer" 


"GROUP+1 4 


RS 2 32 PAGE 


.EQU 


timer" 


"GROUP+1 5 



.**************** 

r 

; LEARN EE GROUP 
.**************** 

r 

LEARNEE_GRP .equ 

RADIO_CMD 

RS START 

TEMP 

LEARNDB 

LEARNT 

ERASET 

MTEMPH 

MTEMPL 

MTEMP . equ 

SERIAL 

memory 

ADDRESS 

TOEXT 

RSCCOUNT 

T125MS 

OnePass 

SKIPRADIO 

write if 



*************************************** 
FOR LOOPS ECT 

******************************************************** 
2 OH 

'.equ LEARNEE_GRP 
.equ LEARNEE_GRP+1 
.equ LEARNEE_GRP+2 / 
.equ LEARNEEJ3RP+3 
.equ LEARNEE_GRP+4 
.equ LEARNEE_GRP+5 
. equ LEARNEE_GRP+ 6 
. equ LEARNEE_GRP+ 7 
LEARNEE_GRP+ 8 
. equ LEARNEE_GRP+ 9 

. equ LEARNEE_GRP+ 1 0 

. equ LEARNEEJ3RP+ 1 1 

. equ LEARNEEJSRP+ 1 2 

. equ LEARNEE_GRP+ 1 3 

. equ LEARNEE_GRP+ 1 4 

. equ LEARNEE_GRP+ 1 5 



; learn debouncer 

; learn timer 

; erase timer 

; memory temp 

; memory temp 
memory temp 

; serial data to and from nonvol 

; address for the serial nonvol memory 

; timer 0 extend dec every TO int 

; 125mS counter 

; flag to skip the radio read and 

; learn or vacation are talking to it 



temp 

learndb 

learnt 

eraset 

mtemph 

mtempl 

mtemp 

serial 

memory 

address 

memory 

tOext 

tl25ms 

skipradio 

write if 



.equ r2 

.equ r3 
.equ r4 
.equ r5 

.equ r6 

.equ rl 

.equ r8 

.equ r9 

.equ rlO 

.equ rll 

.equ rl3 
.equ rl5 



; learn debouncer 

; learn timer 

; erase timer 
; memory temp 

; memory temp 
; memory temp 

; serial data to and from nonvol 

; address for the serial nonvol 

; timer 0 extend dec every TO int 

; 125mS counter 
; flag to skip the radio read and 

; learn or vacation are talking to it 



RPMJ3R0UP 

stackreason 

stackf lag 

rpm_temp_hi 

rpm_temp_lo 

rpm_temp 

rpm_past_hi 

rpmjpast_lo 

rpm_past 

rpm_j?e r i od_h i 

rpm_period_lo 

rpm_period 

rpm_count 

rpm_dif f_hi 

rpm_dif f_lo 

rpm_2past_hi 

rpm_2past_lo 

rpm_time_out 

STACKREASON .EQU 

STACK FLAG 

RPM_TEMP_HI 

RPM_TEMP_LO .EQU 

RPM_PAST_HI 

RPM_PAST_LO .EQU 

RPMJPERIODJil 

RFM_PERIOD_LO 

RPM_COUNT 

RPM_DIFF_HI 

RPM_DIFF_LO 

RFM_2PAST_HI 

RFM_2PAST_LO 

MinTimer 

TDif ference 

RPM TIME OUT 



.EQU 30H 



.equ 


rO 




.equ 


rl 




.equ 


r2 




.equ 


r3 




.equ 


rr2 




.equ 


r4 




.equ 


r5 




.equ 


rr4 






.equ 


r6 




.equ 


rl 


.equ 


rr6 




.equ 


r8 




.equ 


r9 




.equ 


rlO 






.equ 


rll 




.equ 


rl2 




.equ 


rl5 



RPM_GROUP+0 

.EQU RPMJ3ROUP+1 

.EQU RPM_GROUP+2 

RPMJSROUP+3 

.EQU RPM_GROUP+4 

RPM_GR0UP+5 

.EQU RPM_GROUP+6 

.EQU RPM_GROUP+7 

.EQU RPM_GROUP+8 

.EQU RPM_GROUP+9 

.EQU RPM_GROUP+10 

.EQU RPMJ3ROUP+11 

.EQU RPM_GROUP+12 

.EQU RPMJ3ROUP+13 

.EQU RPM_GR0UP+14 

.EQU RPM GROUP+15 



ft-12 



li 



9 

; RADIO GROUP 

r 



RADIO GRP 


. equ 


4 OH j 






RTEMP~~ 


• equ 


RADIO GRP 


• radio temp storage 


RTFMPW 


prrn 


RADTO GRP+1 


• radio temp storage high 


RTFMPT. 


• C-V^LX 


RADI0~GRP+2 


• radio temp storage low 


RTTMFAH 

X\ X XI Ixxfxll 


• CV^LX 


RADIO - GRP+3 


• radio active time high byte 


RTTMFAT, 

I\ J. xixx-irrxj 




RADTO GRP+4 

x\nx/xu ui\r t 1 ^ 


• radio active time low byte 


RTIMEIH 

1\ X lllu 111 


• equ 


RADI0~GRP+5 , 


* radio inactive time high byte 


RTIMEIL 


. equ 


RADI0~GRP+6 , 


• radio inactive time low byte 


RTIMEPH 


• equ 


RADIO GRP+7 


• radio past time high byte 


RTTMFPT. 

i\ 1 -Li XXLj X J_l 


prrn 


RADI0~GRP+8 


• radio past time low byte 


R ADTO^H 


• C. 


RADTO GRP+9 


■ 3 mS 


code storage high byte 






RADTO GRP+10 


• 3 mS 


code storage low byte 


RADTOI H 




RADIO~GRP+l 1 


• 1 mS 


code storage high byte 


RADIOIL 


. equ 


RADIO - GRP+12 


• 1 mS 


code storage low byte 


RAD IOC 


. equ 


RADIO - GRP+13 


• radio word count 


RTIMEDH 
x\ x xiiuun 


• equ 


RADIO" GRP+14 


* radio difference of active and 


liiaU live 










R TTMF.DT, 

1AX XIXX-iXsXJ 


• cv^ix 


RADIO GRP+15 


radio difference 


X. UClUky 




0 

X v i 


radio temp storage 


xv Lempxi 




orrn r 1 
• c^U X X 




r radio tpnvD storaap hicrh 


T t" PTnn 1 
X. O GXLILJ X. 




• c x, G* 




; radio temp storage low 


X LXIUc ciix 




p m 1 t* 
• c^u x ~> 




r radio active time high byte 


rtimeal 




. equ r4 




? radio active time low byte 


rtimeih 




. equ r5 




; radio inactive time high byte 


rtimeil 




.equ r6 




? radio inactive time low byte 


rtimeph 




.equ r7 




? radio past time high byte 


X LxlUcpx 




• GVJ U X O 




? radio past time low byte 


x auiu on 




p m 1 y Q 

• tr L^LX X -7 




? 3 mS code storage high byte 


1CIU1U JX 




. C l^U XXV 




? 3 mS code storage low byte 


X aUxUxIl 




• t; xxx 




; 1 mS code storage high byte 


raHi n1 1 




. C \-£ LX 1 1Z. 




? 1 mS code storage low byte 


r-aHi or* 

X. aUXUL. 




prrn t*1 ^ 

• X X _» 




? radio word count 


X LXxUcUxl 




prrn v*T xl 
. ljlx x x *i 




? radio difference of active and 


i nart" "i tzp 










yfr" "5 moH 1 

X. LXUICUX 




prrn rl S 

• C L^LX XXJ 




; radio difference 


Frjrr'pTaHl p 1 
ruiLci ctiJ x e x 










ForceOHi 


• equ 


ForceTablel+O 


1 


? force at the bottom of the 


door 










ForceOLo 


.equ 


ForceTablel+1 






ForcelHi 


.equ 


ForceTablel+2 






ForcelLo 


.equ 


ForceTablel+3 






Force2Hi 


. equ 


ForceTablel+4 






Force2Lo 


.equ 


ForceTablel+5 






Force3Hi 


.equ 


ForceTablel+6 






Force3Lo 


.equ 


ForceTablel+7 






Force4Hi 


• equ 


ForceTablel+8 






Force4Lo 


.equ 


ForceTablel+9 






Force5Hi 


.equ 


ForceTablel+10 , 






ForceSLo 


.equ 


ForceTablel+11 ; 





A/3 



Force 6Hi 
Force 6Lo 
Force7Hi 
Force7Lo 



. equ ForceTablel+12 

.equ ForceTablel+13 

.equ ForceTablel+14 

.equ ForceTablel+15 



force at the worst case top 



force address pointer 



J. \J 1. X CI Ls JL \Z £~ 




60H 








Hoot 








• equ 


ForceTable2+l 


Forrp9Hi 


. equ 


ForceTable2+2 


Force9Lo 


.equ 


ForceTable2+3 


Force lOHi 


.equ 


ForceTable2+4 


Forcel OLo 


. equ 


ForceTable2+5 


ForcellHi 


. equ 


ForceTable2+6 


ForcellLo 


. equ 


ForceTable2+7 


Forcel2Hi 


.equ 


ForceTable2+8 


Forcel2Lo 


. equ 


ForceTable2+9 


Forcel3Hi 


.equ 


ForceTable2+10 


Forcel3Lo 


.equ 


ForceTable2+ll ; 


Forcel4Hi 


.equ 


ForceTable2+12 


Forcel4Lo 


.equ 


ForceTable2+13 ; 


ForceTemp 


.equ 


ForceTable2+14 


ForceAddress 




. equ ForceTable2+15 


forcetemp 


. equ 


rl4 


forceaddress 




.equ rl5 



; force at the bottom of the 



force at the worst case top 
; force address pointer 



FORCE_GRP 

CHECK_GRP 

check_sum 

rom_data 

test_adr_hi 

test_adr_lo 

test_adr 

forces 

up_force_hi 

up_force_lo 

dn_force__hi 

dn_force_lo 

position_hi 

position_lo 

l_a_c 

CHECKSUM 
ROMJDATA 

FORCES 



.equ 70H 

.equ 7 OH 

.equ rO 

.equ rl 

.equ r2 

. equ r3 

. equ rr2 

.equ rO 

.equ rl 

. equ r2 

.equ r3 

. equ r4 

.equ rll 

.equ rl2 

.equ rl4 

.equ CHECK_GRP+0 

.equ CHECK_GRP+1 

. equ FORCE_GRP 



; check sum pointer 



check sum reg for por 
data read 

; force max during setting 
; 3 = MAX force lOmS 
; 2 = HI force 9 mS 



; 1 = MID force 8.25 mS 
; else = LOW force 7.75 mS 



UP FORCE HI 


. equ 


FORCE GRP+1 ; 




UP - FORCE - LO . eau 


FORCE 


GRP+2*"; 




DN~FORCE~~HI 


. equ 


FORCE GRP+3 ; 




DN~ FORCE - LO pan 


FORCE 


GRP+4~"; 




AOBS F 


. equ 


"FORCE GRP+5 ; 




FAULTCODE 


.equ 


F0RCE~GRP+6 ; 




AOBS TEST 


.equ 


F0RCE_GRP+7 ; 




FAULTTIME 


. equ 


FORCE GRP+8 ; 




RPM APOTTNT 


. equ 


F0RCE"~GRP+9 ; 




TTnDnwn 

<j k> lj \j vyx i 


. equ 


FORCE" GRP+10 


; up to down direction change timer 


PO^TTTON" HT 
r w J i x x uiN ii-i- 


. equ 


FORCE GRP+ 1 1 








FORCE - GRP+1 2 




P5UTD 


. equ 


FORCE - GRP+1 3 




T. A C 




FORCE GRP+1 4 


; limits are chancrincr 


AOB^ FLAG 


. equ 


FORCE GRP+1 5 


; flag for pass point 


PRADTf) GRP 


. C ^ U 


8 OH 






• equ 


PRADIO GRP+0 


; system disable timer 


PR AHTO^H 




PRADIO - GRP+ 1 


: 3 mS code storacre hicrh bvte 


PRADTO^Ti 


. equ 


PRADIO - GRP+2 


; 3 mS code storage low byte 


PRADTO 1 H 

IT JrvTVU' 1 Will 


. equ 


PRADIO - GRP+3 


; 1 itiS code storage high byte 


PRADTO! T, 

IT rvTi_L/ 1U1 XJ 


. C411 


PRADIO GRP+4 


; 1 mS code storacre low bvte 


RTO 

Al v 




PRADTO GRP+5 


: radio tiine out 


RFT.AG 




PRADI0~GRP+6 


; radio flags 


RINFILTER 


.equ 


PRADIOJ3RP+7 


; radio input filter 


LIGHT1S 


.equ 


PRADIO GRP+8 


; light timer for Isecond flash 


D0G2 


.equ 


PRADI0_GRP+9 


; second watchdog 


GotSwitch 


.equ 


PRADIO GRP+OAH 


; found a switch set 


FAULT FLAG 


.equ 


PRADIO_GRP+0BH 


; flag for fault blink stops radio 


blink 








MOTDEL 


.equ 


PRADIO GRP+OCH 


; motor time delay 


LIGHTS 


.equ 


PRADIO GRP+ODH 


; light state 


CounterActive 




.equ PRADIO GRP+OEH ; Counter active flag 


WIN_FLAG 


.equ 


PRADIO_GRP+0FH 


; flag for the operation of the window 



for the pass point 
0 = skip pass point window 
not 0 do pass point 



FORCE2J3RP 

MAX_F_HI 

reading 

MAX_F_LO 

P32_MAX_HI 

P32_MAX_LO 

AOBS RPM 

UP_LIM_HI 

UP_LIM_LO 

DN_LIM_HI 

DN_LIM_LO 

AOBSB 

AOBSNB 

AOBS STATUS 



. equ 
.equ 

.equ 
. equ 
.equ 
.equ 
. equ 
.equ 
.equ 
.equ 
. equ 
.equ 
.equ 



090H 

FORCE 2 GRP 



FORCE 2 
FORCE 2~ 
FORCE 2~ 
FORCE 2~ 
F0RCE2" 
F0RCE2" 
FORCE 2" 
FORCE 2" 
FORCE 2^ 
F0RCE2^ 
FORCE 2" 



GRP+1 

GRP+2 

GRP+3 

GRP+4 

GRP+5 

GRP+6 

GRP+7 

GRP+8 

GRP+9 

GRP+10 

GRP+11 



; temp storage for the max force 



delayed storage every 32 steps 

the count of rpm pulses from aobs 

the up limit count 

the up limit count 

the down limit count 

the down limit count 

the RPM count of the protector break 

the RPM count of protector make 

the protector state 00 beam made 

FF beam broken 



AOBS STATE 



,equ FORCE2J3RP+12 



PWINDOW 
RsTimer 
FF 



,equ FORCE2J3RP+13 
.equ FORCE2J3RP+14 



the state of the zero point test 

00 = waiting for first block 

01 « blocked < 12 counts 

clear unblocked 

02 = waiting for unblocked 

(is blocked > 30) 

03 = unblocked < 12 counts 

clear blocked 

04 = waiting for blocked 

(is unblocked > 30) 

05 = blocked < 12 counts 

clear unblocked 

06 = waiting for unblocked 

(is blocked > 30) 

07 = zero clear AOBSRPM 

clear AOBS STATE 
window 

RS232 operation timer 4 S inc till 

FF = RS232 off switches operational 
else RS232 on switches 



TIMirror 




.equ 


FORCE2_GRP+15 ; Tl setting mirror 


DB GROUP 




.EQU 


OA0H 




SW DATA 




.EQU 


DB GROUP 




ONEP2 




.EQU 


DB GROUP+1 


; 1.2 SEC TIMER TICK .125 


LAST_CMD 




.EQU 


DB_GROUP+2 


! LAST COMMAND FROM 










; = 55 WALL CONTROL 










; = 00 RADIO 










■ = AA RS232 


BCODEFLAG 




.EQU 


DBJ5ROUP+3 


; B CODE FLAG 










• 77 = b code 


RPMONES 




.EQU 


DB GROUP+4 


• RPM PULSE ONE SECOND DISABLE 


RPMCLEAR 




.EQU 


DB GROUP+5 


► RPM PULSE CLEAR , TEST TIMER 


FAREVFLAG 




.EQU 


DBJ3ROUP+6 


; RPM FORCED AREV FLAG 










; 88H FOR A FORCED REVERSE 


FLASH FLAG 




.EQU 


DB GROUP* 7 




FLASH DELAY 


HI 


.EQU 


DB GROUP+8 




FLASH DELAY" 


~lo 


.EQU 


DB GROUP+9 




FLASH DELAY" 




.EQU 


DB_GROUP+8 




FLASH COUNTER 


.EQU 


DB GROUP+0AH 




REASON 




.EQU 


DB GROUP+0BH 





LIGHT FLAG 



.EQU DB GROUP+0CH 



00 COMMAND 

10 RADIO COMMAND 

20 FORCE 

30 AUXOBS 

40 AUTOREVERSE TIMEOUT 

50 LIMIT 

60 EARLY LIMIT 

70 MOTOR MAX TIME OUT 

80 FORCED AREV FROM RPM 

90 CLOSED COMMAND HELD 

AO CLOSED WITH RADIO HELD 

F0 No pass point 



CMDJ3EB 
LIGHT_DEB 
VAC DEB 



.EQU DB_GROUP+0DH 
.EQU DB_GROUP+0EH 
.EQU DB GROUP+OFH 



BACKUP_GRP 
LearnLed 



.equ OBOH 

.equ BACKUP_GRP+0 



led control 

OOXX XXXX = Led Blink from radio 

01XX XXXX = Blink From Fault 

10XX XXXX = Learn mode 

XXFF FFFF = off 

XXNN NNNN count at 3mS rate 



RsMode 


. equ 


BACKUP_GRP+1 




= 232D if RS232 only set from 


ForceAddHi 


.equ 


BACKUP GRP+2 


; 


force adder From temperature 


ForceAddLo 


.equ 


BACKUP GRP+3 






ForceAdd 


.equ 


BACKUP_GRP+2 






MotorTempHi 


.equ 


BACKUP GRP+4 






MotorTempLo 


. equ 


BACKUP GRP+5 






MotorTemp 


.equ 


BACKUP_GRP+4 






Temperature 


.equ 


BACKUP GRP+6 






P8Counter 


.equ 


BACKUP GRP+7 






PastTemp 


.equ 


BACKUP GRP+8 






BRFM_TIME_OUT 


.equ 


BACKUP GRP+9 






BFORCE_I GNORE 


• equ 


BACKUP GRP+OAH 






BSTATE 


.equ 


BACKUP__GRP+OBH 






BAUTO DELAY HI 


. equ 


BACKUP GRP+OCH 






BAUTO DELAYJLO 


.equ 


BACKUP GRP+ODH 






BAUT 0_DE LAY .equ 


BACKUP GRP+OCH 






BCMD_DEB 


.equ 


BACKUPJ3RP+0FH 






STACKTOP 


.equ 


238 


r 


start of the stack 


STACKEND 


.equ 


OCOH 


» 

/ 


end of the stack 


RS2320S 


.equ 


00010000B 


r 


RS232 output bit set 


RS2320C 


.equ 


11101111B 


t 


RS232 output bit clear 


RS2320P 


.equ 


P3 


• 
t 


RS232 output port 


RS232IP 


.equ 


PO 


t 


RS232 input port 


RS232IM 


.equ 


01000000B 


r 


RS232 mask 


Rs InputModeAnd 


.equ 


10101111B 


* 

T 




RsInputModeOr 




.equ 10100000B 




• 


RsOutputModeAnd 


.equ 


10101111B 


t 




RsOutputModeOr 


.equ 


10100000B 


• 
t 





csh 
csl 

clockh 
clockl 
doh 



.equ 00010000B 

.equ 11101111B 

.equ 00001000B 
.equ 11110111B 

.equ 00000100B 



chip select high for the 93c46 
chip select low for 93c46 
; clock high for 93c46 
; clock low for 93c46 
data out high for 93c4 6 



dol 

psmask 

csport 

dioport 

clkport 

psport 



.equ 11111011B 



.equ 01000000B 

. equ P2 

. equ P2 

. equ P2 

. equ P2 



data out low for 93c4 6 

; mask for the program switch 

; chip select port 

; data i/o port 

; clock port 

; program switch port 



WATCHDOG_GROUP 

peon 

smr 

wdtmr 



.EQU OFH 

.equ rO 

.equ rll 

.equ rl5 



WDT .macro 

.byte 5fh 
.endm 

FILL .macro 

.byte OFFh 
.endm 



TRAP 



TRAP10 



macro 
jp start 



DP 

jP 

jP 

DP 
endm 
macro 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

.endm 



start 
start 
start 
start 



• * 

r* Interrupt Vector Table 

. ★ 

.IF E21 

.org 0000H 

.word RADIO_INT ;IRQO. P3.2 

.word RADIOJENT ;IRQ1, P3.3 

.word AUX_OBS ;IRQ2, P3 . 1 

.word RPM ;IRQ3, P3.0 



.word Timer lint 
.word Timer2Int 



;IRQ4, TO 
;IRQ5, Tl 



.ELSE 



.org 0000H 

.word RADIO_INT 

.word 000CH 

.word RPM 

.word AUX_OBS 

.word Timer lint 

.word Timer2Int 



;IRQ0. P3.2 

;IRQ1, P3.3 

;IRQ2, P3.1 

;IRQ3, P3.0 

;IRQ4, TO 

;IRQ5, Tl 



.ENDIF 



.page 



jp 



.org 000CH 
START 



; start jmps to start at location 0101 



RS232 DATA ROUTINES 



enter rs232 start with word to output in rs232do 



RS2320START: 

or 
and 
push 
srp 
cp 
jr 



RS2320P, #RsOutputModeOr 
RS2320P, #RsOutputModeAnd 
rp 

#TIMER_GROUP 

rs232odelay / #00H 

z,RsReady 



djnz rs232odelay, NORSIN 
RsReady: 

clr RS START 

Id rs232odelay, #04 

clr rs232docount 

or RS2320P, #RS2320S 

jr NORSIN 



set the Output mode 



save the rp 

set the group pointer 

test for ready 



one shot 

set the period 

; start with the counter at 0 
set the output 



RS232: 

cp 
jr 

RS2320UTPUT : 
push 
srp 
cp 
jr 
jr 



RS START, #0FFH 
z f RS2320START 

rp 

#TIMER_GROUP 
rs232docount, #lld 
ult,RS232R 
ugt, InputMode 



; test for the start flag 



; save the rp 

; set the group pointer 

; test for last 



and RS2320P, #RS2320C 
inc rs232docount 



clear the output 
; one shot 



InputMode: 

or RS2320P, #RsInputModeOr 
and RS2320P, #RsInputModeAnd 



set the input mode 



JR 
RS232R: 
Id 

djnz 
inc 

cycle 

scf 
rrc 
jr 

or 
jr 

RS232SET: 
and 

SETTIME: 
Id 
jr 

NORSOUT : 
RS232INPUT: 

cp 
jr 
tm 

jr 

clr 
Id 

RECEIVING: 
djnz 
inc 
cp 
jr 
tm 
rcf 

jr 

carry 

scf 
SKIPSETTING 



NORSOUT 

rs232dicount, #0F0H 
rs232odelay,NORSIN 
rs232docount 



rs232do 
C, RS232SET 

RS2320P / #RS2320S 
SETTIME 

RS2320P, #RS2320C 

rs232odelay, #4d 
NORSIN 



rs232dicount, #0FFH 
nz, RECEIVING 
RS232IP,#RS232IM 

nz, NORSIN 

rs232dicount 
rs232idelay, #2d 

rs232idelay, NORSIN 
rs232dicount 
rs232dicount / #10d 
z,DIEVEN 

RS232IP,#RS232IM 



z, SKIPSETTING 



; set a time delay 

; cycle count time delay 

; set the count for the next 

; set the carry flag for stop bits 

; get the data into the carry 
; if the bit is high then set 

; set the output 

; find the delay time 

; clear the output 

; set the data output delay 



; test mode 

; if receiving then jump 
; test the incoming data 

; if the line is still idle then skip 

; start at 0 

; set the delay to 1/2 

; skip till delay is up 
; bit counter 
; test for last timeout 

; test the incoming data 

; clear the carry 

; if input bit not set skip setting 

; set the carry 



start 



rrc 

Id 

jr 


rs232di 

rs232idelay,#4d 
NORSIN 


; save the data into 
; set the delay 


f: 

Id 


rs232dicount, #0FFH 


; turn off the input 


Id 
clr 


rscommand, rs232di 
RSCCOUNT 


; save the value 
; clear the counter 


f: 

pop 
ret 


rp 


; return the rp 



.org 101H 



; start address 



; REGISTER INITILIZATION 

r 



start: 
START: 

di ; turn off the interrupt for init 

.IF E21 

xor PI , #00000001B ; Kick the external dog 

.ELSE 

Id RP, #WATCHDOG_GROUP 

Id wdtmr,#00001111B ; rc dog lOOmS 

WDT ; kick the dog 

.ENDIF 

clr RP ; clear the register pointer 



;* Internal RAM Test and Reset All RAM mS * 

•**********************************************^ 

srp #0F0h ; point to control group use stack 

Id rl5,#4 ;rl5= pointer (minimum of 

RAM) 

write_again: 

.IF E21 

xor PI, #00000001B ; Kick the external dog 

.ELSE 



WDT ; KICK THE DOG 
.ENDIF 

Id rl4,#l 
write_againl: 

Id @rl5,rl4 ;write 1,2,4,8,10,20,40,80 

cp rl4,@rl5 ;then compare 

jr ne, system_error 

rl rl4 

jr nc, write_againl 

clr @r!5 /write RAM(r5)=0 to memory 

inc rl5 

cp rl5,#240 

jr ult, write_again 



; STACK INITILIZATION 

r 

STACK: 

clr 254 

Id 255,#238D ; set the start of the stack 

Id P0,#P01S_INIT ; RESET all ports 

.IF E21 
clr PI 
.ENDIF 

Id P2,#P2S_INIT 
Id P3,#P3S INIT 



Id P01M,#P01M_INIT 
Id P3M,#P3M_INIT 

Id P2M,#(P2M_INIT+0) 



system_error : 

and P3,#00111111B 
or P3,#01000000B 
jr system_error 

.byte 256-check_sum_value 
system_ok: 

.IF E21 

xor P1,#00000001B 

.ELSE 

WDT 

.ENDIF 

Id STACKEND, #STACKTOP 
SETSTACKLOOP: 

Id @ STACKEND, #01H 
dec STACKEND 
cp STACKEND, # STACKEND 
jr nz, SETSTACKLOOP 

CLEARDONE : 



; set mode p00-p03 out p04-p07in 

; set port3 p30-p33 input analog mode 

; p34-p37 outputs 

; set port 2 mode 



one 



; turn off both outputs 
; turn on the led 



; Kick the external dog 
; KICK THE DOG 



; start at the top of the stack 

; set the value for the stack vector 

; next address 

; test for the last address 

; loop till done 



;* Checksum Test * 

CHECKSUMTEST: 

srp #CHECK_GRP 

Id test_adr_hi, #0FH 

Id test_adr_lo, #0FFH 

address=f f fh 
add_sum: 

.IF E21 

xor P1,#00000001B 
.ELSE 
WDT 
.ENDIF 

call PORTINIT 



Idc 

add 
register 

decw 
address 

jr 

cp 

jr 

jr 

checksum = 00 ? 



romjiata, @test_adr 
checksum, rom_data 

test adr 



/maximum 

; Kick the external dog 

; KICK THE DOG 

; port initilization 

; read ROM code one by 
;add it to checksum 



nz, add_sum 

checkjsum, #check_sum_value 

system_ok 

z, system_ok 



/increment ROM 

;address=0 ? 

;temp test 

; check final 



1 d 

X \JL 


^TATF ^fl^d 




Id 

xva 


R^TATF UO^d 




1 d 

XU. 


T.TftRT TTMFR HT . &SET 


TIME HI 


1 d 


T.THHT TTMFR T.O &SET 


"TIME - LO 

x xx xi \> 


Id 

X VJ. 


PRF T.TftHT #^5ET TIME 


PRE 


Id 


PM"n""nF R # 0 F FH 




Id 


RPmH HFR &OFFH 




Id 


VAP TTFR &OFFH 




Id 


LIGHT DEB.#OFFH 




Id 


ERASET, #0FFH 




Id 


LEARNDB/ #0FFH 




Id 


LEARNT, #0FFH 




Id 


RTO, #0FFH 




Id 


RS 2 3 2 DOCOUNT , #012d 




Id 


RPMONES,#244d 





set the state to DOWN POSITION 
FORCING UP TRAVEL FIRST STEP 
set the light period 
for the 4.5 min timer 

in case of shorted switches 
in case of shorted switches 



set the erase timer 
set the learn debouncer 
set the learn timer 
set the radio time out 

set the hold off 



.************************************** 
; TIMER INITILIZATION 

.************************************** 
TIMER: 

Id PREO,#00001001B 
Id T0,#O00H 

0 

Id PRE1, #00001011B 
Id TIMirror, #SwPeriod 
switches 

Id Tl,TlMirror 
Id TMR, #00001111B 
call PORTINIT 



********************************* 
********************************* 

; set the prescaler to / 2 for 8Mhz 
; set the counter to count FF through 

; set the prescaler to / 2 for 8Mhz 
; set the period to 300uS for 



turn on the timer 
init the ports 



********************************* *************************************** 

SET PORTS AND DIVIDER 
************ ************* *********** 

•IF E21 



.ELSE 

Id RP , # WATCHDOG_GROUP 

Id smr, #00100010B ; reset the xtal / number 

Id peon, #01111110B ; reset the peon no comparator output 

; no low emi mode 

. ENDIF 

Id PREO,#00001001B ; set the prescaler to / 2 for 8Mhz 



.************************************************************************ 
; READ THE MEMORY AND GET THE VAC FLAG 

.************************************************************************ 



Id SKIPRADIO, #0FFH 

srp #LEARNEE_GRP 

Id address, #AddressVacation ; set non vol address to the VAC 

flag 

call READMEMORY ; read the value 2X IX INIT 



call READMEMORY 

1 d VAC FLAG , iut emph 



; read the value 

; read into volital 



READ THE TEMPERATURE 



clr IMR / turn off all interrupts 

Id ADDRESS, #AddressTemperature ; read the motor temp from nonvol 

call READMEMORY ; read the memory data 

clr IMR ; turn off all interrupts 

Id MotorTempHi , MTEMPH 

Id MotorTempLO/ MTEMPL 

call TempMeasure ; read the temp 

.**********************************^ 
f 

; Reset the machine according to last state 



Id address, #AddressLastOperation 



call READMEMORY 



; get the last operation 



Id 

Id 

Id 

and 

call 

Id 

cp 

jr 

cp 

jr 

jr 

DownWake: 
Id 
Id 
inc 
jr 

UpWake: 
Id 
Id 
Id 
inc 
jr 

MidWake: 
Id 
add 



POSITION_HI, #07FH 
POSITION__LO,#0D4H 
STATE, mt emph 
STATE, #00001111B 
ReadLimits 

ADDRESS, #AddressDownForceTable 

STATE, #5d 

z, DownWake 

STATE, #2d 

2, UpWake 

MidWake 

POSITION_HI, DN_LIM_HI 
POSIT ION JL.O, DN_LIM_LO 
WIN_FLAG 
Wake 

ADDRESS, #AddressUpForceTable 
POSITIONJil, UP_LIM_HI 
POSIT ION_LO, UP_LIM_LO 
WIN_FLAG 
Wake 

STATE, #6d 

MotorTempHi, #T27Adder 



set the position to the temp 
limit till pass point 

remove the reason 
read the limits 

; point to the down force table 
test for the down limit 
if so set the down limit 
test for at the up limit 
if so then set the up limit 
else in mid travel wake up 

set the position as the down 
limit 

turn on the window 



point to the down force table 
set the position as the up 
limit 

turn on the window 



set the stopped state 
increase temp 



Wake: 



Id . BSTATE, STATE 
call ReadForceTable 
call FIND WINDOW 



; set the backup state 
; read the force table 
find the window 



clr SKIPRADIO 



; INITERRUPT INITILIZATION 



SETINTERRUPTS: 
.IF E21 

Id IPR,#00101011B 
.ELSE 

Id IPR,#00011010B 
.ENDIF 

Id IMR, #ALL_ON_IMR 
.IF E21 

Id IRQ, #OO0OO000B 
.ELSE 

Id IRQ, #01000000B 
. ENDIF 



; set the priority to timer 

; set the priority to timer 

; turn on the interrupt 

; set the edge clear int 

; set the edge clear int 



ei 



; enable interrupt 



f 

; MAIN LOOP 

.*************************************^ 
t 

MAINLOOP : 



clr 


DOG2 


; clear the second watchdog 


cp 


Jog, #055H 


; test for jog up 


jr 


z, DoJogUp 




cp 


Jog, #0AAH 


/ test for jog down 


jr 


z, DoJogDn 




jr 


JogSkip 




DoJogUp: 






sub 


UP LIM LO,#10d 


; jog the limit 


sbc 


UP_LIM_HI,#00H 




jr 


JogMem 




DoJogDn: 






add 


UP LIM LO, #10d 


; jog the limit 


adc 


UP_LIM_HI, #00H 





JogMem: 



clr Jog 

Id SKIPRADIO, #0FFH 

Id ADDRESS, #AddressUpLimit 

Id MTEMPH,UP_LIM_HI 

Id MTEMPL, UP_LIM_LO 

call WRITEMEMORY 

clr SKIPRADIO 

Id LA C,#30H 



one shot 

set non vol address to the up limit 
save into nonvolital 



write the value 

; set the jog operation 



JogSkip: 
cp 



OnePass, STATE 



; test if read out of memory allready 



memory 



memory 



i r 


z, SkipMemoryRead 




if so then skip reading out of 




LAC, #42H 


. 


test if in learn mode 


jr 


uge, LearnSkipMemoryRead 




if so then skip reading out of 


cp 


STATE, #ld 


• 


test for the up state 


jr 


z,UpTableRead 




; if so read the up table 


cp 


STATE, #4d 


r 


test for the down state 


jr 


z, DownTableRead 


t 


if so read the down table 


jr 


S k ipMemo r yRe a d 


• 


else skip 



DownTableRead: 
Id 
Id 

call 
call 
clr 
Id 
jr 



SKIPRADIO, #0FFH ; turn off the radio read 

ADDRESS, #AddressDownForceTable ; read the down force table 

READMEMORY ; dummy read 



ReadForceTable 
SKIPRADIO 
OnePass, STATE 
Ski pMemo r yRe ad 



read the force table 
allow the radio function 
save the state 



UpTableRead: 

Id OnePass, STATE ; 

Id SKIPRADIO, #0FFH 

Id ADDRESS, #AddressUpForceTable ; 

call READMEMORY ; dummy 

call ReadForceTable ; 

clr SKIPRADIO 

Id OnePass, STATE 

jr SkipMemoryRead ; 
LearnSkipMemoryRead : 

Id OnePass, STATE ; 
SkipMemoryRead: 

cp L_A_C,#42h 

jr uge, SkipReadForce ; 
call ReadForce ; 
SkipReadForce: 



save the state 

turn off the radio read 

read the up force table 

read 

read the force table 
allow the radio function 
save the state 



save the state 

test for in learn mode 

if so then skip reading the force 

read the present force value 



call 


PORTREF 


/ 


refresh the ports 


srp 


# FORCE GRP 


/ 


set the rp 


cp 


1 a c,#030H 


/ 


test for learn action 


jP 


ult,CLRLAC 


/ 


if less then then clear number 


cp 


l_a_c, #042H 




test for active learn limits 


jr 


uge, LearnLimits 






cp 


l_a_c, #32H 




test for the end of jog 


jP 


ugt , CLRLAC 


/ 


if so then clear 


cp 


1 a c,#30H 




test for stop 


jP 


z,G30 






cp 


1 a c,#31H 




test for start travel down 


jp 


z,G31 






jP 


G32 


» 


else delay for up 


.limits 








cp 


l_a_c,#04Fh 


• 


test for to large a number 


jP 


z, STOREFL 


• 


if = store the force and limits 


jp 


ugt, CLRLAC 


r 


if greater or = clear 


clr 


WIN FLAG 


r 


turn off the window 



cp l_a_c,#042H 

jp z,G42 

cp l_a_c,#043H 

jp z,G43 

cp l_a_c,#044H 

jp z,G44 

cp l_a_c,#045H 

jp z,G45 

cp l_a_c,#046H 

jp z,G46 

cp l_a_c,#04AH 

jp z,G4A 

cp l_a_c,#04BH 

jp z, G4B 

cp l_a_c,#04DH 

jp z,G4D 



test for state 42 

if so then stop motor and set force 

test for state 43 

if so time delay then up 

test for state 44 

if so travel up till cmd release 

test for state 45 

if so clear timer set next state 

test for state 46 

if so time delay then down 

test for state 4A 

if so clear timer set next state 

test for state 4B 

if so time delay then down 

test for state 4D 

if so store the force table and 

set the up force table pointer 



DP 



LACCS 



else exit 



G42: 



inc 


forces 




; increase the forces 


cp 


forces, #03 




test for the max setting 


jr 


ule, SKIPFINC 






clr 


forces 




; reset if at the max 


SKIPFINC: 








cp 


forces, #03 




test for the max force 


jr 


nz, FORCE 2 T 


} 


if not then test for force 


FORCE 3: 








Id 


dn force lo,#088H 




set the force to MAX 


Id 


dn_force_hi,#013H 






jr 


FORCESET 






F0RCE2T: 








cp 


forces, #02 


) 


test for the high force 


jr 


nz,FORCElT 


} 


if not test for mid 1 


FORCE 2 : 








Id 


dn force lo,#094H 


r 


set the force to HI 


Id 


dn_force_hi,#011H 






jr 


FORCESET 






FORCE IT : 








CP 


forces, #01 


i 


test for mid low 


jr 


nz, FORCE 0 




IF NOT THE FORCE IS MIN 


FORCE 1: 








Id 


dn force lo,#01DH 




; set the force to mid 


Id 


dn force hi,#010H 






jr 


FORCESET 







FORCE 0: 





Id 


dn force lo,#023H 




Id 


dn force_hi, #00FH 




jr 


FORCESET 


FORCESET : 






Id 


UP FORCE HI,dn force hi 




Id 


UP_FORCE_LO, up_f orce_lo 




inc 


LAC 




clr 


P5UTD 




DP 


LACCS 


G30: 








cp 


STATE, #DN_DIRECTION 




jr 


z, Delay30 




cp 


STATE, #UP DIRECTION 




jr 


z, Delay30 




inc 


LAC 




Id 


P5UTD, #lld 




jP 


LACCS 


Delay30: 






r 1 r 


P5UTD 




call 


SET STOP STATE 




DP 


LACCS 










cp 


P5UTD, #012d 




jP 


nz, LACCS 




clr 


P5UTD 




Id 


LAST CMD, #055H 




Id 


SW DATA, #CMD SW 




DP 


LACCS 


G32: 








cp 


P5UTD, #012d 




DP 


nz, LACCS 




clr 


P5UTD 




Id 


LAST CMD, #055H 




Id 


SW DATA, #CMD SW 




jP 


LACCS 


G43: 








cp 


P5UTD, #06d 




DP 


nz, LACCS 




call 


SET UP DIR STATE 




DP 


LACCS 


G44: 








cp 


CMD_DEB,#OFFH 




jr 


z, LACCS 




clr 


FourDFlag 




call 


SET UP POS STATE 




JR 


LACCS 



; set the force to min 



G45: 
G4A: 



G46: 



clr 
inc 
jr 

di 

clr 

clr 



P5UTD 
l__a_c 
LACCS 



POSITION_HI 
POSITION LO 



set the next state 



; test for traveling 



set the next state 
delay short 



clear the timer 
stop the machine for 



,5 sec 



test for the delay 
if not the skip 
clear the timer 

set the last command as wall cmd 
set the switch data as command 



test for the delay 
if not the skip 
clear the timer 

set the last command as wall cmd 
set the switch data as command 



test for the delay 
if not the skip 



; test for the command being held 

; clear the flag 

; set the up position state 



clear the timer 



; clear the position 



ei 








G4B: 








cp 


P5UTD,#6d 


» 


DELAY < 5 SECONDS 


jr 


ne,LACCS 


/ 


if nnt" in«1" wai f 

1 1 11V_S L. J UO L. WCIX L 


cp 


l_a_c, #4BH 


r 


t^cit "for* <;pt" 


jr 


nz, SkipDownlnit 






SetDownPointer : 






push 


RP 




set the rt) 


srp 


#ForceTable2 




f 


Id 


forceaddress, #ForceOHi 




t set the address oointer to 


fill 








Id 


forcetemp, #15d 




; set the number of address 


DownForcelnit : 






Id 


@forceaddress, DN_FORCE_HI 




• <?<=»t thp initial vaI hp 

/ OC L LilC 1111 UXul VulUC 


inc 


forceaddress 






Id 


@ forceaddress, DN_FORCE_LO 






inc 


forceaddress 






djnz 


forcetemp, DownForcelnit 




lonn till done 


Id 


forceaddress, POSITIONJHI 




* rrpf thf* nn<?"i t - i on 

f yci LUC ^UOl LIUil 


com 


forceaddress 




i turn it into the oointer 


inc 


forceaddress 






cp 


forceaddress, #0DH 


% 
t 


test for the max 

w W I—- JL \^ J- Wllv lilt*** 


jr 


ult,Dn2X 




if not skip zeroing 


clr 


forceaddress 






Dn2X: 








rcf 




f 


*2 


rlc 


forceaddress 




/ 


add 


forceaddress, #ForceOHi 




/ 


pop 


RP 






SkipDownlnit: 






call 


SET DN DIR STATE 






jr 


LACCS 






G4D: 








cp 


FourDFlag, #00 




; test for 1 time only operation 


jr 


nz, LACCS 


r 


it" not ^Vio 

11 1 lv k- O Alp 


inc 


FourDFlag 


r 




StoreDownForceTable : 






Id 


ForceOHi, P32JYLAX_HI 




; set the force to P32 for the 


reverse 








Id 


ForceOLo,P32 MAX LO 


/ 




Id 


ADDRESS, #AddressDownForceTable 




call 


StoreForceTable 






SetUpPointer : 






push 


RP 


* 


<^pt thp> r*o 


srp 


#ForceTable2 




t 


Id 


forceaddress, #ForceOHi 




; set the address pointer to 


fill 








Id 


forcetemp, #15d 




; set the number of address 


UpForcelnit 








Id 


@forceaddress,UP_FORCE_HI 




; set the initial value 


inc 


forceaddress 







Id @forceaddress,UP_FORCE_LO 

inc forceaddress 

djnz forcetemp,UpForceInit 

Id forceaddress, #ForceOHi 

pop RP 



/ loop till done 



LACCS 



exit 



CLRLAC : 



clr lac 



LACCSE: 



clr P5UTD 



LACCS: 

EI 
cp 
jr 
cp 
jr 
Id 
jr 

MCLEARVAC : 

clr VAC FLAG 
SETVACCHANGE : 

clr VACCHANGE 



VACCHANGE, #0AAH 
nz,NOVACCHG 
VAC FLAG, #0FFH 
z, MCLEARVAC 
VAC FLAG, #0FFH 
SETVACCHANGE 



Id SKIPRADIO,#0FFH 

Id ADDRESS, #AddressVacation 



flag 



Id MTEMPH, VAC FLAG 

Id MTEMPL, VAC FLAG 

call WRITEMEMORY 

clr SKIPRADIO 
NOVACCHG: 

cp S TACKFLAG , # OAAH 

j r z, Wri teTheTemperature 

cp S TACKFLAG , # 0 FFH 

jr nz , NOCHANGEST 

srp #LEARNEE_GRP 

clr STACKFLAG 

Id SKIPRADIO, #0FFH 

Id address, #AddressCounter 



byte 



call READMEMORY 

inc mtempl 

jr nz,COUNTERDONE 

inc mtemph 

jr nz, COUNTERDONE 

call WRITEMEMORY 

inc address 

call READMEMORY 

inc mtempl 

jr nz, COUNTERDONE 



; clear the L_A_C reg 

; clear the timer for .5 reverse 

test for the vacation change flag 
if no change the skip 
test for in vacation 
if in vac clear 
set vacation 
set the change 

; clear vacation mode 

; one shot 

; set skip flag 

; non vol address to the VAC 

; store the vacation flag 



write the value 

; clear skip flag 

; test for temperature storage 

; if so save it 
; test for the change flag 
; if no change skip updating 

; set the register pointer 

; clear the flag 

; set skip flag 

; set the non vol address to the cycle 

read the value 

; increase the counter lower 



increase the counter high byte 



store the value 

; get the next bytes 
read the data 

; increase the counter low byte 



A-SO 



mc 
COUNTERDONE 
call 

CDONE : 

Id 



mtemph 



WRITEMEMORY 



got 



; increase the vounter high byte 
the new address 



address , #AddressLastOperation 



Id 


mtemph, STACKREASON 






or 


mtemph, STATE 


/ 


or in the state 


Id 


m tempi, mtemph 




set both the samp 


call 


WRITEMEMORY 


; write 


the value to stack 


clr 


SKIPRADIO 


/ 


clear skin flacr 


WriteTheTemperature : 






call 


WriteTemperature 














call 


LEARN 




do the learn switch 


di 








C P 


BRPM TIME OUT,RPM TIME OUT 




J r 


z, TESTRPM 
















START 














cp 


B FORCE IGNORE, FORCE 


IGNORE 




i r 








o -J 








di 








cp 


BAUTO DELAY HI, AUTO 


DELAY HI 




i r 


nz . RESET 






cp 


RATTTO DFT.AY LO ATTTO 


DFT.AY T.D 




J L 


r\7 m RESET 






cp 


BCMD DEB^CMD DEB 






ir 


n7 RFSFT 






cp 


BS TATE, STATE 






j r 


nz, RESET 






A "? 
C J. 








TF^TR^? ^? • 

luOi IxO C. •*> C • 








CDD 

OX\fr 


#TIMER_GROUP 






cp 


RS START, #0FFH 




test for starting a transmission 


jp 


z,SkipRS232 




if srarrincr Fi tran^ skin 


cp 


rs command, # f, Z" 






IP 


ugt,SkipRS232 






cp 


rscommand, #"0" 


r 


f pcf for in rancrp 


jp 


ult,SkipRS232 




• "if nut" ratine cV i n 


cp 


rs232docount,#12d 


r 


test for output done 


jp 


nz, SkipRS232 




; if not the skip 


cp 


RSCCOUNT, #9 OH 


r 


f est* for or our 


jp 


nz, CrOutSkip 




; no 


call 


CrOut 






jP 


SkipRS232 






CrOutSkip: 








di 








push 


rs_temp_hi 


* 
t 


save the present value 


push 


rs_temp_lo 






push 


rscommand 


i 


save the command 


sub 


rscommand, #"0" 




; setup for table 


Id 


rs_temp_hi, # A hb RS232 JumpTable 


; address pointer to table 


Id 


rs_temp_lo, # A lb RS232 JumpTable 





add rs_temp_lo, rscommand 

adc rs_temp_hi, #00 

add rs_temp_lo, rscommand 

adc rs_temp_hi, #00 

add rs_temp_lo, rscommand 

adc rs_temp_hi, #00 

call @rs_temp 

cp rscommand, #0FFH 

j r nz , SaveCommand 

pop rs_temp__lo 

j r S aveCommandRe t 

SaveCommand: 

pop rscommand 

S aveCommandRe t : 

pop rs_temp_lo 

pop rs_temp_hi 
ei 

jp SkipRS232 



; look up the jump 3x 

; look up the jump 3x 

; look up the jump 3x 

; call this address 

; test for cleared command 

; throw away value 
; reset the varables 

; done 



RS232JumpTable: 



"1 Ti 
JP 


\J\J 1V/V 






' 30 


JP 








? 31 


JP 








? 32 


JP 








. 33 


in 
JP 








? 34 


"] Ti 


GOTC5 






. 35 


~1 Ti 
JP 


UU 1 u u 






. 36 


JP 


\J<J X \* l 






; 37 


io 


GOTC8 






f 38 


DP 


GOTC9 






r 39 


jP 


GOTCNOP 






; 3A 


DP 


GOTCNOP 






f 3B 


jP 


GOTCLT 






? 3C 


jP 


GOTCNOP 






; 3D 


DP 


GOTCGT 






• 3E 


jP 


GOTCNOP 






; 3F 


jP 


GOTCNOP 






40 


jP 


GOTCA 




41 




DP 


GOTCB 


/ 


42 




jP 


GOTCC 


/ 


43 




jP 


GOTCD 


) 


44 




jP 


GOTCE 


/ 


45 




jP 


GOTCF 






; 46 


jP 


GOTCG 


/ 


47 




jP 


GOTCH 


/ 


48 




jP 


GOTCI 






• 49 


jP 


GOTCJ 






• 4A 


jP 


GOTCK 




4B 




jP 


GOTCL 






; 4C 


jP 


GOTCM 




4D 




jP 


GOTCN 




4E 




jP 


GOTCO 




4F 




jP 


GOTCP 




50 




jP 


GOTCQ 




51 




jP 


GOTCR 




52 




jP 


GOTCS 




53 





jp 


GOTCT 




; 54 


DP 


GOTCU 


; 55 




DP 


GOTCV 


; 56 




jP 


GOTCW 


; 57 




jP 


GOTCX 




; 58 


jP 


GOTCY 


; 59 




jP 


GOTCZ 




; 5A 



SkipRS232: 
cp 

jP 
clr 
clr 
jP 



RJDEAD_TIME,#20 

nz,MAINLOOP 

RADIOC 

RFLAG 

MAINLOOP 



i test for too long dead 
if not loop 

clear the radio counter 
clear the radio flag 
loop forever 



f 

; Temperature write 



; get the motor temp 



WriteTemperature : 

Id MTEMPH, Mo torTempHi 

Id MTEMPL, MotorTempLo ; 

Id ADDRESS, #AddressTemperature ; set the address 

Id SKIPRADIO, #0FFH ; turn off the radio memory read 

call WRITEMEMORY ; write the data 

clr SKIPRADIO ; turn back on the radio 

ret 



********************************* *********^ 
RS232 SUBROUTINES 



GOTCLT: 



GOTCGT : 



Id 
jP 

Id 
jP 



Jog, #0AAH 
OnePosC 



Jog,#055H 
OnePosC 



; 3C < 

; jog 

; 3E > 

; jog 



GOTCNOP: 
jP 

GOTCO: 

Id 
cp 
jr 
or 

CMDSWOPEN: 
cp 
jr 
or 

WLSWOPEN: 



OnePosC 



RS232DO,# ,, 0" 
CMDJDEB,#OFFH 
nz, CMDSWOPEN 
RS232DO / #00000001B 

LIGHT_DEB,#OFFH 
nz, WLSWOPEN 
RS232DO,#00000010B 



; no operation skip values 

; SWITCH DATA 

; clear the data 
; test for the command set 

; set the marking bit 

; test for the worklight set 

; set the marking bit 



/)-33 



cp VAC_DEB, #OFFH 

jp nz, VACSWOPEN 

or RS232DO,#00000100B 

jp VACSWOPEN 



; test fir the vacation set 

r 

; set the marking bit 



GOTC1 : 



Id RS232DO,#"0" 

cp VACFLAG,#00H 

jr z,NOTINVACATION 

or RS232DO, #001B 



NO T I NVAC AT I ON : 



tm 
jr 
or 

LIGHTISOFF: 
tm 

DP 
or 

DP 



pO,#WORKLIGHT 
z, LIGHTISOFF 
RS232DO,#010B 

AOBSF, #00000001B 
z, VACSWOPEN 
RS232DO, #100B 
VACSWOPEN 



SYSTEM STATE 

; start from 0 
test the vacation flag 



; test for the light on 

; mark the bit 

; test for aobs error 



GOTC2 : 



Id RS232DO, RPM_PERIOD_LO 

cp RSCCOUNT,#01H 

jp z,LastPos 

Id RS232DO, RPM_PERIOD_HI 

jp FirstPos 

GOTC3 : 

Id RS232DO,#"0" 

cp LEARNDB, #0FFH 

jr nz, LearnSwitchOpen 

or RS232DO, #00000001B 

LearnSwitchOpen : 

cp LEARNT, #0FFH 

jr z , RSNOTINLEARN 

or RS232DO, #00000010B 

RSNOTINLEARN: 

cp WIN_FLAG,#00 

jp z, VACSWOPEN 

or RS232DO, #00000100B 

jp VACSWOPEN 



; test for on transmitted last cycle 



SWITCH DATA 

; clear the data 

test for learn set 

; if open skip bit 
; set the marking bit 

test for learn mode 



; if not set 



test for the win flag 
leave bit as 0 



GOTC4 : 



Id RS232PAGE / #00H 
jp RS232PAGEOUT 



GOTC5 : 



Id RS232PAGE, #10H 
jp RS2 3 2 PAGE OUT 



G0TC6: 



G0TC7 : 



Id RS232PAGE, #20H 
jp RS2 3 2 PAGE OUT 



Id RS232PAGE,#30H 
jp RS2 3 2 PAGE OUT 



GOTC9: 



call LearnSet 
jp OnePosN 



GOTCA: 



Id rs232do, POSITION JLO 

cp RSCCOUNT, #01H 

jp z,LastPos • 

Id rs232do, POSITIONJH 

jp FirstPos 



; test for on transmitted last cycle 



GOTCB: 



Id rs232do, DN_LIM_LO 

cp RSCCOUNT, #01H 

jp 2/LastPos 

Id RS232DO, DN_LIM_HI 

jp FirstPos 



; test for on transmitted last cycle 



GOTCC: 



Id rs232do, UP_LIM_LO 

cp RSCCOUNT, #01H 

jp z,LastPos 

Id rs232do,UP_LIM_HI 

jp FirstPos 



; test for on transmitted last cycle 



GOTCD: 



Id rs232do,MAX_F_LO 

cp RSCCOUNT,#01H 

jp z,LastPos 

Id rs232do,MAX_F_HI 

jp FirstPos 



; test for on transmitted last cycle 



GOTCE : 



Id rs232do, DN_FORCE_LO 

cp RSCCOUNT,#01H 

jp Z/LastPos 

Id rs232do, DN_FORCE_HI 

jp FirstPos 



; test for on transmitted last cycle 



GOTCF: 



Id rs232do, UP_FORCE_LO 

cp RSCCOUNT, #01H 

jp z,LastPos 

Id rs232do, UP_FORCE_H I 

jp FirstPos 



; test for on transmitted last cycle 



GOTCG: 



Id RS232DO,PWINDOW 
jp LastPos 



GOTCH: 



Id RS232DO,WIN_FLAG 
add RS232DO, #"0" 
jp LastPos 



GOTCI: 



Id LAS T_CMD , # 0 AAH 

call CmdSet 

Id RS2320DELAY, #100D 

jp OnePosN 



GOTCJ: 



Id RS232DO, Temperature 
jp LastPos 



GOTCK: 



Id RS232DO,MotorTempHi 

jp LastPos 

GOTCL: 

cp L_A_C,#41h 

jr ugt, InLearnOutForces 

Id rs232do,#"9" 

jp LastPos 
InLearnOutForces : 

Id rs232do, FORCES 

add rs232do,#030h 

jp LastPos 



; read the state 



; read the state 



; give the system a command 

; set the command 

; set a delay of 100*. 2ms = 20mS 



; read the temperature 



; read the motor temperature 



; test for the learn limits flag 

; if in learn then output forces 
; else 9 
; output 

; output forces 



GOTCM: 
action 



call VacSet 
jp OnePosN 



GOTCN: 



call LightSet 
jp OnePosN 



GOTCO: 



Id rs232do, ForceAddLo 

cp RSCCOUNT,#01H 

jp z, LastPos 

Id rs232do, ForceAddHi 

jp FirstPos 



GOTCP: 



di 

Id CMD_DEB,#00 

Id BCMD_DEB , CMD_DEB 

jp OnePosN 



; give the system vacation switch 
; set the vacation 



; give the system a work light command 
/ set the worklight switch 



; test for on transmitted last cycle 



ft -36 



GOTCQ: 

di 
Id 
Id 
jP 

GOTCR: 

cp 
jr 

radio code 
Id 
DP 

OutputCode : 
cp 
jr 
cp 
jr 
cp 
jr 
Id 

RCodeOut : 
cp 
jP 
jP 



CMDJDEB, #0FFH 
BCMD__DEB, CMD_DEB 
OnePosN 



RsRto,#101D 
ule, OutputCode 

RS232DO, #0FFH 
RCodeOut 

RSCCOUNT, #0D 
z, CodeRFirst 
RSCCOUNT, #1D 
z,CodeRSec 
RSCCOUNT, #2D 
z, CodeRTh 
RS232DO,PRADI01L 

RSCCOUNT, # 3D 
z, LastPos 
FirstPos 



; test for the timer time out 

; if timer active then output 



; test for the force byte 



; test for the end 



CodeRFirst: 

Id RS232DO,PRADI03H 
jr RCodeOut 



CodeRSec: 
Id 
jr 



RS232DO,PRADI03L 
RCodeOut 



CodeRTh : 
Id 
jr 



RS232DO,PRADI01H 
RCodeOut 



GOTCS : 

cp 
jr 
cp 
jr 
jr 

SCodeOut : 
cp 
jP 
jP 



RSCCOUNT, #0D 
z,CodeSFirst 
RSCCOUNT, #1D 
z,CodeSSec 
CodeSTh 

RSCCOUNT, #2D 
z, LastPos 
FirstPos 



CodeSFirst : 
Id 
cp 
jr 
Id 
jr 



RS232DO, #"0" 
Temperature, #100D 
ult, SCodeOut 
RS232DO,#"l" 
SCodeOut 



CodeSSec: 



; test for the force byte 



; test for the end 



push 
cp 
jr 
sub 

SkipSSub: 
clr 

SSecLoop: 
cp 
jr 
sub 
inc 
jr 

SSecDone: 
pop 
add 
jr 



Temperature 
Temperature, #100d 
ult, SkipSSub 
Temperature, #100d 

RS232DO 

Temperature, #10d 
ult, SSecDone 
Temperature, #10d 
RS232DO 
SSecLoop 

Temperature 

RS232DO,#"0" 

SCodeOut 



; save the temperature 
; remove the last digit 



; start at zero for the start bit 

; test for loop continue. 
; test for done 

r 

; counter increase 



; reset 
; done 



CodeSTh: 

push 
cp 
jr 
sub 

SkipSSub2: 
clr 

SThLoop: 
cp 
jr 
sub 
inc 
jr 

SThDone: 
Id 
pop 
add 
jr 



Temperature 
Temperature, #100d 
ult, SkipSSub2 
Temperature, #100d 

RS232DO 

Temperature, #10d 
ult, SThDone 
Temperature, #10d 
RS232DO 
SThLoop 

RS232DO, Temperature 
Temperature 
RS232DO,#"0" 
SCodeOut 



; save the temperature 
; remove the last digit 



; start at zero for the start bit 

; test for loop continue 

; test for done 

; counter increase 



; output remainer 
; reset 



; done 



GOTCT : 

cp 
jr 
cp 
jr 
jr 

TCodeOut : 
cp 
jP 
jP 



RSCCOUNT,#0D 
z,CodeTFirst 
RSCCOUNT, #1D 
z, CodeTSec 
CodeTTh 

RSCCOUNT, #2D 
z, LastPos 
FirstPos 



; test for the force byte 



; test for the end 



CodeTFirst : 
Id 
cp 
jr 
Id 
jr 



RS232DO,#"0" 
MotorTempHi,#100D 
ult, TCodeOut 
RS232DO,#"l" 
TCodeOut 



J- o • 




push 


MotorTempHi 


CD 


MotorTempHi, #100d 


J L 




sub 


MotorTempHi, #10 Od 


9 k*i nTSnh • 

O JV _L tw 1 J. O UJJ • 




clr 


RS232DO 






CD 


MotorTemoHi, #10d 


"i r* 
J 




sub 


MotorTempHi, #10d 


inc 


RS232DO 


jr 


TSecLoop 


TSecDone: 




pop 


MotorTempHi 


add 


RS232DO,#"0" 


jr 


TCodeOut 



; save the temperature 

; remove the last digit 

; start at zero for the start bit 

; test for loop continue 
; test for done 

; counter increase 

; reset 

; done 



CodeTTh: 

push 
cp 
jr 
sub 

SkipTSub2 : 
clr 

TThLoop: 
cp 
jr 
sub 
inc 
jr 

TThDone : 
Id 
pop 
add 
jr 



MotorTempHi 
MotorTempHi, #100d 
ult, SkipTSub2 
MotorTempHi, #100d 

RS232DO 

MotorTempHi, #10d 
ult, TThDone 
MotorTempHi, #10d 
RS232DO 
TThLoop 

RS232DO, MotorTempHi 
MotorTempHi 
RS232DO, # M 0" 
TCodeOut 



; save the temperature 
; remove the last digit 



; start at zero for the start bit 

; test for loop continue 

; test for done 

; counter increase 



; output remainer 
; reset 



; done 



GOTCU: 



Id RsMode,#232D 

Id RS232DO, #Version 

and rs232do, #00001111B 

add rs232do,#"0" 

cp RSCCOUNT,#01H 

jp z,LastPos 

Id rs232do, #Version 

swap rs232do 

and rs232do, #00001 111B 

add rs232do,# H 0" 

jp FirstPos 



; turn on the rs232 mode period 
; read the Version 

; get the last byte 
) 

; test for on transmitted last cycle 
; read the Version 

; get the first byte 



GOTCV: 



Id RS232DO, STATE 
add RS232DO,#"0" 
jp VACSWOPEN 



; read the state 

; add the offset 



GOTCW: 



Id 


RS 2 3 2 DO , S TACKREAS ON 


; read 


the reason 


swap 


RS232DO 






add 


RS232DO. #"0" 


r 


add the offset 


JP 


VACSWOPEN 


r 




GOTCX : 








Id 


RS232DO, FAULTCODE 


; read the fault 


add 


RS232DO, #"0" 




add the offset 


i n 
JP 


VACSWOPEN 

v rive t * n^/ i. ijii 














clr 


RS232DO 


; start 


clean 


tm 


P0. #00010000B 




test for first gear strap 




z. SkioStraDl 






OX" 


RS232DO. #00000001b 


r 


set the bit 


SkinStraol : 








tm 


P0. #00100000B 


f 


test for the second gear 


i r 


z, SkipStrap2 


f 




or 


RS232DO, #00000010B 


r 


set the bit 


SkipStrap2 : 








tm 


P2,#10000000B 


t 


test for the temperature strap 


jr 


z, SkipStrap3 


f 




or 


RS232DO / #00000100B 


• 
r 


set the bit 


SkipStrap3: 








add 


RS232DO,#"0" 


• 

r 


add the offset 


jP 


VACSWOPEN 


r 





GOTCZ : 

Id MotorTempHi , Temperature 

call WriteTemperature 

jp OnePosN 



? Store the limits and the up force settings 



STORE FL: 








Id 


SKIPRADIO, #0FFH 






Id 


ADDRESS, #AddressUpLimit 




set non vol address to the up limit 


Id 


MTEMPH, UP LIM HI 




save into nonvolital 


Id 


MTEMPL, UP LIM LO 






call 


WRITEMEMORY 


write 


the value 


Id 


ADDRESS, #AddressDownLimit 




; set non vol address to the 


down limit 








Id 


MTEMPH, DN LIM HI 


} 


save into nonvolital 


Id 


MTEMPL, DN LIM LO 


r 




call 


WRITEMEMORY 


write 


the value 



StoreUpForceTable : 

Id ADDRESS, #AddressUpForceTable 



call StoreForceTable 

inc WIN_FLAG 

clr SKIPRADIO 

JP CLRLAC 



turn on the window 
return and clear the lac 



FirstPos: 
dec 
inc 
ret 

OnePosN: 
Id 
jr 

OnePosC: 
Id 

LastPos : 
VACSWOPEN: 
Id 
dec 
ret 

CrOut : 

Id 

clr 

dec 

Id 

ret 



RS START 
RSCCOUNT 



RS232DO,#"0" 
LastPos 

RS232DO, #"@" 



RSCCOUNT, #090H 
RS START 



RS232DO, #00DH 

RSCCOUNT 

RS START 

rs command, #0FFH 



RS232PAGEOUT: 

Id SKIPRADIO, #0FFH 
ADDRESS, RSCCOUNT 



; set the start flag 
; increase the count 



Id 
rcf 
rrc 
or 



ADDRESS 

ADDRESS, RS232PAGE 
call READMEMORY 
Id RS232DO,MTEMPH 
tm RSCCOUNT, #01H 
jr z, RPBYTE 
Id RS232DO,MTEMPL 



RPBYTE : 



clr SKIPRADIO 

cp RSCCOUNT, #1FH 

jr z, LastPos 

jr FirstPos 



; mark to do cr 

; set the start flag 



; set the cr output 

; reset the counter 

; set the start flag 

; turn off command 



; set the skip radio flag 
find the address 



; read the data 

; test which byte 



; turn off the skip radio 
; test for the end 



GOTC8 : 

Id 
Id 
Id 
Id 
Id 

WRITELOOP1; 
.IF 
xor 
.ELSE 



RS232DO,#0FFH 
SKIPRADIO, #0FFH 
MTEMPH, #0FFH 
MTEMPL, #0FFH 
ADDRESS, #00 

E21 

P1,#00000001B 



flag set to error to start 
set the skip radio flag 
set the data to write 

start at address 00 



Kick the external dog 



Ml 



WDT 

.ENDII 

call 

inc 

cp 

jr 

Id 

READL00P1 : 
.IF 
xor 
.ELSE 
WDT 
.ENDII 
call 
inc 
jr 
inc 
jr 
inc 
cp 
jr 



WRITEMEMORY 
ADDRESS 
ADDRESS, #40H 
nz,WRITELOOPl 
ADDRESS, #00 

E21 

P1,#00000001B 



READMEMORY 
MTEMPH 

nz, MEMORYERROR 
MTEMPL 

nz , MEMORYERROR 
ADDRESS 
ADDRESS, #4 OH 
nz,READLOOPl 



Id 
Id 
Id 

WRITELOOP2: 

.IF 
xor 

.ELSE 
WDT 

. ENDIF 

call WRITEMEMORY 



MTEMPH, #00 OH 
MTEMPL, #00 OH 
ADDRESS, #00 

E21 

P1,#00000001B 



inc 
cp 
jr 
Id 

READLOOP2 : 



ADDRESS 
ADDRESS, #4 OH 
nz,WRITELOOP2 
ADDRESS, #00 



; KICK THE DOG 



; do the next address 

; test for the last address 

; start at address 0 



; Kick the external dog 

; KICK THE DOG 

; read the data 

test the high 
if error mark 
test the low 
if error mark 
set the next address 
test for the last address 



set the data to write 
start at address 00 

; Kick the external dog 
; KICK THE DOG 



do the next address 

test for the last address 

start at address 0 



.IF 


E21 




xor 


P1,#00000001B 


; Kick the external dog 


.ELSE 






WDT 




; KICK THE DOG 


.ENDIF 




call 


READMEMORY 


; read the data 


cp 


MTEMPH, #00 


; test the high 


jr 


nz, MEMORYERROR 


; if error mark 


cp 


MTEMPL, #00 


; test the low 


jr 


nz, MEMORYERROR 


; if error mark 


inc 


ADDRESS 


; set the next address 


cp 


ADDRESS, #40H 


; test for the last address 


jr 


nz,READLOOP2 




call 


CLEARCODES 




clr 


SKIPRADIO 


; clear the skip radio flag 


clr 


RS232DO 


; flag all ok 


(TERROR 






dec 


RS START 


; set the start flag 


Id 


RS COMMAND, #0FFH 


; turn off command 


jP 


SkipRS232 


; return 




f 

; PORT INITILI2ATION 

.**************************************^ 

PORTINIT: 

Id P0,#P01S_INIT 
.IF E21 
clr PI 
.ENDIF 

Id P2,#P2S_INIT 
P3,#P3S INIT 



Id 

PORTREF: 
Id 
Id 



Id 
ret 



P01M,#P01M_INIT 
P3M, #P3M_INIT 

P2M,#(P2M INIT+0) 



; RESET all ports 



; port refresh 

; set mode p00-p03 out p04-p07in 

; set port3 p30-p33 input analog mode 

/ p34-p37 outputs 

; set port 2 mode 

; return 



Radio interrupt from a edge of the radio signal 
********************************************* 



RADIO INT: 



sync 



in temp 
tm 
jr 



done 



Id 
Id 



rtimedh, #10000000B 
z, RTIMEDONE 

rtimedh, rtemph 
rtimedl, rtempl 



push 


RP 




save the radio pair 


srp 


#RADIO_GRP 


r 


set the register pointer ' 


Id 


rtemph, TOEXT 




; read the upper byte 


Id 


rtempl, TO 




read the lower byte 


tm 


IRQ,#00010000B 




test for pending int 


jr 


z, RTIMEOK 




if not then ok time 


tm 


rtempl, #10000000B 




test for timer reload 


jr 


z, RTIMEOK 




if not reloaded then ok 


dec 


rtemph 




; if reloaded then dec high for 


DK: 
clr 


R DEAD TIME 


T 


clear the dead time 


.IF E21 






and 


IMR,#11111100B 


r 


turn off the radio interrupt 


.ELSE 








and 


IMR,#11111110B 


/ 


turn off the radio interrupt 


.ENDIF 






Id 


rtimedh, rtimeph 




; find the difference 


Id 


rtimedl, rtimepl 






sub 


rtimedl, rtempl 






sbc 


rtimedh, rtemph 




; past time and the past time 



; test for a negitive number 
; if the number is not negitive then 

; find the difference 



rtimedl, rtimepl 
rtimedh, rtimeph 



P3,#00000100B 
nz, ACTIVETIME 



rtimeil, rtimedl 
rtimeph, rtemph 
rtimepl, rtempl 
RADIO_EXIT 

RINFILTER, #00H 
z,GOACTIVE 
RADIO EXIT 



sub 
sbc 

temp 

RTIMEDONE: 

tm 

jr 
branch 

INACTIVETIME: 

cp RINFILTER, #0FFH 
jr z,GOINACTIVE 
jr RADIO_EXIT 

GOINACTIVE: 

.IF E21 
.ELSE 

or IRQ,#01000000B 

edge 

. ENDIF 

Clr RINFILTER 
Id rtimeih, rtimedh 
inactive 
Id 
Id 
Id 
jr 

ACTIVETIME: 
cp 
jr 
jr 

GOACTIVE: 

.IF E21 
.ELSE 

and IRQ, #00111111B 

edge 

.ENDIF 
Id 
Id 
Id 
Id 
Id 
ei 
cp 
jr 

MEASUREBLANK 
cp 

jP 
cp 

jP 
cp 

first > 1 
jr 
jr 
cp 
jr 

SETREC1MS : 
tm 

code 



RINFILTER, #0FFH 
rtimeah, rtimedh 
rtimeal, rtimedl 
rtimeph, rtemph 
rtimepl, rtempl 

radioc, #00H 
nz, INSIGNAL 

rtimeih, #110D 
ugt, CLEARRADIO 
rtimeih, #40D 
Ult, CLEARRADIO 
rtimeah, #03H 

ugt, SETREC3MS 
nz,SETREClMS 
rtimeal, #09DH 
ugt, SETREC3MS 

RFLAG,#00010000B 



?past time and the past time in 



; test the port for the edge 
; if it was the active time then 



; test for active last time 

; if so continue 
; if not the return 



; set the bit setting direction to pos 



; set flag to inactive 

; transfer difference to 



transfer temp into the past 



; return 

; test for active last time 

; if so continue 

; if not the return 



; clear the bit setting dir to neg 



transfer difference to active 
transfer temp into the past 



; test for blank time 

; if the count not zero then in signal 

; test the timer for > 55mS 
; if > 55 then clear the radio 

; test the timer for < 20mS 
; if < 20mS then clear the radio 

; test the sync for a 3mS period 

; if 2mS or greater then 3mS sync code 
; if less then 1 then it is a ImS 

; test for 1.85 "middle value 2" 
; if greater then set a 3 

; test for the reception of the ImS 



"1 T 


z. SETFIRST1MS 

f J— i X i. X J. XX -ik-* 


r 


\ f the bi t is not set then thi s is 


the first 


litis 






and 


RFLAG,#10111111B 




clear the flaa so writincr into 3mS 


word 








or 


RFLAG f #00100000B 




set the flaa savina 2nd lmS word 


clr 


radio3h 




• clear the last receotion 


clr 


radio31 






jr 


INCCOUNT 


r 


then inc the count for insianal 


SETFIRST1MS: 






or 


RFLAG, #01000000B 




set the flaa for the first lmS word 


clr 


radiolh 




; clear the last reception 

, X w (X X Ullw X tX k-/ ^ X V w w X \_/ A 1 


clr 


radioll 




/ 


i r 


INCCOUNT 


/ 


then inc the count for insianal 


SETREC3MS : 








and 


RFLAG, #10111111B 


t 

r 


clear the flaa so writina into 3mS 


word 








clr 


radio3h 




; clear the last reception 


clr 


radio3 1 




r 


INCCOUNT : 








inc 


radioc 




; set the counter to the next 


word 








jr 


RADIO_EXIT 






RADIO EXIT 








t )KJ t J 


RP 


B 


reset the reaister nair 

1 tot. LUC X^\^X^«Jl«V^X ^/(X X X 


iret 








INSIGNAL* 










rt imeah . #9D 

X LXULCQll/ IT •< x/ 




test the radio nul «?e width for 4 SmS 

L- \^ U L Wild' XU VX X \*r ^> LA X O V^> rv X V_l Lll X w X * • ^1UU 


in 


uat * CLEARRADIO 




if areater then 4 5 then clear the 


radio 








PUL^EWOTC* 

X \J ±J <J i~J 1 » \J L\ • 








CD 


rtimeih, #9D 


• 


test the radio blank width for 4 . 5mS 


io 


uat. CLEARRADIO 




if csTf^riYf^T then 4 S then clear the 


radio 








BLANKWOK • 








Id 


rtemph, rtimeih 




; transfer dh lse time to f emo 


recr 

"** 3 








Id 


rtempl, rtimeil 






sub 


rtemol, rtimeal 




subtract the milse from the 


blank 








sbc 


rtemph, rtimeah 




t 
/ 


jr 


c, NEGDIFF 




if the di f feTence i s neni t i ve then 

XX L>1X^ VX XXX \Z X \3 1 X O ilCvJ X L» X V \3 U. 1 Id 1 


branch 








cp 


rtemph, #01H 




test for Pi nnniber 1 

L- 1* O l_ XWX d llUiLlAj'C J. X 


jr 


ugt, SETTOO 




if greater then set 0 


jr 


ult,SETT01 




if less then 1 set to 1 


tm 


rtempl,#10000000B 




test for 80 or greater 


jr 


z,SETT01 




if the diff is less then 80h 


jr 


SETTOO 




else set to a zero 

X> ~mm* Km* \m+ Km* *mm* Km* %mW \mf 4m* 1m \J 


NEGDIFF: 








Id 


rtemph, rtimeah 




; transfer pulse time to temp 


reg 








Id 


rtempl, rtimeal 






sub 


rtempl, rtimeil 




; subtract the pulse from the 


blank 








sbc 


rtemph, rtimeih 







CD 


rtemDh, #01H 




test for a niimber 1 




ugt, SETT02 




if greater then set 2 




ult, SETT01 




if less then 1 set to 1 


tm 


rtemDl. #10000000B 

x c* c^jxicy x. / jr i v v v vw vv x»» 




tpst for 80 or areater 


i r 


z, SETT01 




if the diff is less then 80h one 


i r 


SETT02 


• 


else set to a two 


SETTOO : 

\J Mmi X A W V/ • 








Id 


RTEMP. #00D 

X\XXjXXXT , TTV^vl-' 


• 
* 


spt the bit value to a 00 

\z; c cut x >_ v cx x. cx \i c c/ cx v v 


jr 


INCRECORD 




goto adding into the record 


SETT01: 








Id 


RTEMP, #01D 

i \ -i- -t-ii 1 1 f IT v -x x^ 


* 


set the bit value to a 01 


i r 


INCRECORD 


• 


aoto addina into the record 


SETT02 : 








Id 


RTEMP #02D 




set the bit value to a 10 


i r 


INCRECORD 


• 


goto adding into the record 


INCRECORD* 








tm 


RFLAH #0100000 OB 

X\ X XXtx VJ j TrUJLUUVuUUiJ 


r 


test radio flag for area to be 


modi f ino 








i r 


z,MS3REC0RD 


; if cleared then working the 3ms 


Id 


rtemph, radiolh 




• trancif pr thp tpcotH to t*pnm 

/ L>X UllO X CX Ltlv X CvVX VX L U L^C^XLIL^ 


Id 


rtemDl. radioll 




/ 


add 


r^rii nil. rtpnvnl 




?»Hd thp nninhpr to it sp! f 

/ cx vXCX L.11C X X CXilUk^ \Z X l_ cy X. l_. O ~ X. X. ^. 


■for ha^p 3 








adc 


radiolh, rtemDh 






add 


r a d i o 1 1 . r t p mD 1 

X. CX V-X X. W J. J. f X, U Vi.111 W X. 




• 


adc 


radiolh* rtemDh 






add 


r^cH o1 1 . t i~ phtd 

X CX CX X. V_V X X / L V- ^XlLkV 






adc 


radiolh, #00h 




; 
f 


inc 


radioc 




; increase the radio counter 


en 


radior . #11D 

x. cx cx -i- o ^ , tt x x xy 


/ 


test for the last bit 


-ir 


z , GOTAWORD 




if so we got a word 


"1 D 
J H 


uat, CLEARRADIO 

VX W V- / \*r J»JX*JX XX \X \X Kill / *X» V> 


/ 


else garbage 


i r 


RADTO F.XTT 

X xxt_L/ X CV X X 




else return till the next bit comes 


along 








MS3RECORD' 








Id 


rtemDh, radio3h 




; transfer the record to temp 


Id 


rtPTnol - r^jo , 'io31 

x, o c;xiik_/ x. / x ci x, w x. 






add 


raHi o31 . rtPTTIDl 

X CiVXX w v*/ X> f X, C* ClUkV x> 




; add the number to it self 2* 


for hasp 3 








adc 


raHi o3h . rtpmoh 






add 


r^cJ "i o31 . r t" pmD 1 

x, uuxu — » jl f x, c Ciiuky x. 






adc 


radio3h. rrpmoh 






add 


radio31, rtemp 




; add in the new value 


adc 


radio3h, #00D 






inc 


rariioc 




; increase the radio counter 




radioc. #11D 


/ 


test for the last bit 


ir 


z, GOTAWORD 


• 


if so we got a word 


ip 


RADIO EXIT 


/ 


else return till the next bit comes 


along 








GOTAWORD: 








tm 


RFLACttOlOOOOOOB 


9 


test radio flag for area just 


modif ing 








jr 


z , MARK3REC 


f 


if bit is cleared then the 3ms is 



filled 



nr 


RFLAG. #00010000B 


» Qpf the f 1 acr 


ir 


TESTFORTWO 


initio 1"o test for two codps 


MARK3REC ■ 






or 


RFLAG. #00001000B 


cpf- thp flanr 


i r 


TESTFORTWO , 


i unto to test for two codes 








clr 


radioc 


; clear the radio counter 


in 


RADIO EXIT 


• return 


TESTFORTWO* 






tm 


RFLAG. #00010000B 


* test for the lmS word 

L- kmJ L- JL V_/ JL Lllv _1_ ILli^/ VV JL s^L 


i r 


z , DONE ONE 


1 we iust have one code done 


tm 


RFLAG. #00001000B 


• test for the "^tti^ word 


ir 


z , DONEONE , 


■ we just have one code done 


tm 


RFLAG. #00100000B 

JL \ JL JJ,n.y / Jj \J \J \s \S \S \s \J J — •> 


test the flaa for BC 


jr 


z , KNOWCODE 


if A code we do nothing 


or 


RFLAG, #00000010B , 


set the B and C flag 


r*D 


rtemD. #00 


• test word 10 for a 0 "C n code 


nn 
Jr 


z , KNOWCODE , 


* if a C code were done 


or 


RFLAG, #00000100B 


• set the B code flag 


KNOWCODE : 






clr 


RsRto i 


reset the received flag 


cp 


SKIPRADIO,#0FFH 


test for the skip flag 


jP 


z,CLEARRADIO 


1 skip flag active donot look at 



mem 



Id ADDRESS, #AddressVacation 

flag 

call READMEMORY 

Id VAC FLAG, MTEMPH 

cp LEARNT, #0FFH 

jr z,TESTCODE 

matching 

STORECODE: 

cp PRADI01H,radiolh 

j r nz, STORENOTMATCH 

cp PRADI01L, radioll 

j r nz , STORENOTMATCH 

cp PRADI03H, radio3h 

j r nz , STORENOTMATCH 

cp PRADI03L, radio31 

j r nz, STORENOTMATCH 

call TESTCODES 

now 

cp ADDRESS, #0FFH 

jr nz, NOWRITESTORE 



; set the non vol to the VAC 

the value 
; save into volital 
; test for in learn mode 
; if out of learn mode then test 



; test for the match 

; if not a match then loop again 

; test for the match 

; if not a match then loop again 

; test for the match 

; if not a match then loop again 

; test for the match 

; if not a match then loop again 

; test the code to see if in memory 



; if there is a match pretend to store 



STOREMATCH: 
tm 
jr 
tm 

ACODE : 



Id 

last written 

call READMEMORY 
inc MTEMPH 



RFLAG, #00000100B 
nz,BC0DE 

RFLAG, #00000010B 
nz,CC0DE 

ADDRESS, #AddressApo inter 



test for the b code 
if a B code jump 
test for a C code 
if a C code jump 

; set the address to read the 



read the memory 

; add 2 to the 



last written 



M7 



inc MTEMPH 

and MTEMPH, #11111110B 

cp MTEMPH, #17H 

jr u 1 1 , GOTAADDRE S S 

Id MTEMPH, #00D 
GOTAADDRE SS : 

Id ADDRESS, #AddressApointer 
last written 



Id 


RTEMP, MTEMPH 


Id 


MTEMPL, MTEMPH 


call 


WRITEMEMORY 


Id 


ADDRESS, rtemp 


jr 


READYTOWRITE 


BCODE : 




Id 


ADDRESS, #AddressB 


jr 


READYTOWRITE 


CCODE : 




Id 


ADDRESS, #AddressC 


READYTOWRITE: 


call 


WRITECODE 


NOWRITESTORE: 


xor 


pO, #WORKLIGHT 


Id 


LearnLed,#00111111b 


mode 




Id 


LIGHT1S,#244D 


Id 


LEARNT, #0FFH 


clr 


RTO 


jP 


CLEARRADIO 


STORENOTMATCH: 


Id 


PRADI01H,radiolh 


Id 


PRADI01L,radioll 


Id 


PRADI03H,radio3h 


Id 


PRADI03L,radio31 


jP 


CLEARRADIO 


TESTCODE : 




Id 


PRADIOIH, radiolh 


Id 


PRADI01L,radioll 


Id 


PRADI03H, radio3h 


Id 


PRADI03L,radio31 


tlQ 


LearnLed, #11000000B 




nz, FS1 


Id 


LearnLed, #00111100b 


FS1: 




call 


TESTCODES 


cp 


ADDRESS, #0FFH 


jr 


nz, GOTMATCH 


jP 


CLEARRADIO 


GOTMATCH : 




or 


RFLAG,#00000001B 


error 




cp 


RTO,#101D 


jr 


ult, NOTNEWMATCH 


cmd 




TESTVAC: 





; set the address on a even number. 

; test for the last address 

; if not the last address jump 

; set the address to 0 

; set the address to write the 

; save the address 
; both bytes same 
write it 

; set the address 



; set the address for the B code 



; set the address for the C code 

; write the code in radiol and radio3 

; toggle light 

; turn off the LED for program 

; turn on the 1 second blink 

; set learnmode timer 

; disallow cmd from learn 

; return 

; transfer radio into past 



get the next code 



transfer radio into past 



; test for fault or learn 
; if so then skip blink 
; blink led 

; test the codes 

; test for the not matching state 

; if matching send a command if needed 

; else clear the radio 

; set the flag for recieving without 

; test for the timer time out 

; if timer active then donot reissue 



If 



cp 
jr 

cp 
jr 

TSTSDISABLE 
cp 
jr 
clr 
cp 
jr 

RADIOCOMMAND 



VAC FLAG, #00B 
z, TSTSDISABLE 

ADDRESS, #AddressB+l 
nz , NOTNEWMATCH 

SDISABLE,#32D 
ult, NOTNEWMATCH 
RTO 

ONEP2,#00 
nz , NOTNEWMATCH 



clr 
cp 
jr 
Id 

BDONTSET : 



RTO 

ADDRESS, #AddressB+l 
nz, BDONTSET 
BCODEFLAG, #077H 



test for the vacation mode 
if not vac mode disable 

test for the B code 
if not a B not a match 

test for 4 second 

if 6 s not up not a new code 

clear the radio timeout 

test for the 1.2 second time out 

if timer is active then skip command 

clear the radio timeout 
test for a B code 
if not a b code donot set flag 
flag for aobs bypass 



clr LAST_CMD 

Id RADIO_CMD, #0AAH 

jr CLEARRADIO 



mark the last command as radio 
set the radio command 
return 



TESTCODES: 
ei 
clr 

NEXTCODE : 
call 
cp 
jr 
cp 
jr 
inc 
call 
cp 
jr 

address 
cp 
jr 
ret 



ADDRESS 

READMEMORY 
MTEMPH,radiolh 
nz, NOMATCH 
MTEMPL, radio 11 
nz, NOMATCH 
ADDRESS 
READMEMORY 
MTEMPH, radio 3h 
nz, NOMATCH2 

MTEMPL, radio31 
nz, NOMATCH2 



; start address is 0 

read the word at this address 
test for the match 

if not matching then do next address 
test for the match 

if not matching then do next address 
set the second half of the code 
read the word at this address 
test for the match 
not matching then do the next 

test for the match 

if not matching do the next address 
return with the address of the match 



NOMATCH: 
inc 

NOMATCH2 : 
inc 
cp 
jr 

try again 

GOTNOMATCH : 
Id 
ret 



ADDRESS 
ADDRESS 

ADDRESS, #AddressCounter 
ult, NEXTCODE 



ADDRESS, #0FFH 



; set the address to the next code 

; set the address to the next code 
; test for the last address 

; if not the last address then 



; set the no match flag 
; and return 



NOTNEWMATCH: 

Clr RTO 



; reset the radio time out 



error 



backup 



and RFLAG,#00000001B 

clr radioc 

Id LEARNT, #0FFH 

> 

jp RADIOJEXIT 



CLEARRADIO: 

•IF E21 
.ELSE 

and IRQ,#00111111B 

edge 

.ENDIF 

Id RINFILTER, #0FFH 
CLEARRAD I OA : 

tm RFLAG, #00000001B 
jr z,SKIPRTO 

timer 

clr RTO 
SKIPRTO: 

clr radioc 

clr RFLAG 

jp RADIO_EXIT 



; clear radio flags recieving w/o 

; clear the radio bit counter 
; set learn timer "turn off" and 

; return 



; clear bit setting direction to neg 



; set flag to active 

; test for receiving without error 

; if flag not set then donot clear 

; clear radio timer 

; clear the radio counter 

; clear the radio flag 

; return 



************************************************************************ 



Store the force table 

Enter with the address pointing to the first address 
************************************************************************ 



StoreForceTable : 
push RP 

srp #ForceTable2 
di 

•IF E21 

xor P1,#00000001B 

• ELSE 

WDT 

.ENDIF 

Id forcetemp, #14d 
Id forceaddress, #ForceOHi 
MemTransfer : 

Id MTEMPH, @forceaddress 
forceaddress 
MTEMPL, @forceaddress 
forceaddress 
E21 

P1,#00000001B 



inc 
Id 
inc 
• IF 
xor 
.ELSE 
WDT 
•ENDIF 

call WRITEMEMORY 
inc ADDRESS 

djnz forcetemp, MemTransfer 
pop RP 



; set the rp 

; Kick the external dog 

; KICK THE DOG 

; set the number to do 
/ set the start address 

; get the value 
« 

r 
r 

; Kick the external dog 

; KICK THE DOG 

write the values 

; set to the next address 
; loop till done 



ret 



*********************************************************************** 



Read Force Table 

Enter with the address pointing to the first address 

*********************************************************************** 
ReadForceTable: 



push RP 

srp #ForceTable2 
Id SKIPRADIO,#0FFH 
.IF E21 

xor P1,#00000001B 

• ELSE 

WDT 

.ENDIF 

Id forcetemp, #14d 
Id forceaddress, #ForceOHi 
ReadMemTransfer: 

call READMEMORY 



; set the rp 

; turn off the radio 

; Kick the external dog 

; KICK THE DOG 

; set the number to do 
; set the start address 

read the value 



Id @ f orceaddress , MTEMPH 

inc forceaddress 

Id @ forceaddress , MTEMPL 

inc forceaddress 

.IF E21 

xor P1,#00000001B 

.ELSE 

WDT 

. ENDIF 

inc ADDRESS 

djnz f orcetemp/ ReadMemTransfer 

pop RP 

jp ReadLimits 



; get the value 
/ 

; Kick the external dog 

; KICK THE DOG 

; set to the next address 
; loop till done 



.*********************************************************************** 

; TIMES OUT THE LEARN MODE 30 SECONDS 

; DEBOUNCES THE LEARN SWITCH FOR ERASE 6 SECONDS 

.**************************************************** ******************* 
LEARN: 



cp LEARNDB, #0E0H 

jr uge, LearnStillSet 

clr ERASET 

jr EraseTestDone 
LearnStillSet: 

cp ERASET, #48d 

jr nz, EraseTestDone 

inc ERASET 

Id LearnLed, #00111111b 

Id LEARNT, #0FFH 

Id SKIPRADIO,#0FFH 

call CLEARCODES 

Clr SKIPRADIO 
EraseTestDone: 



; test for in learn mode 
; if set test erase timer 
; else clear the timer 



; test for the 6 seconds 

; if not 6 sec keep testing 

; one shot 

; turn off the led 

; set the learn timer 

; turn off the radio 

; clear the radio codes 

; turn back on the radio 



cp LEARNT, #2 4 Od 

jr z, TurnOf fLearn 
ret 

TurnOf fLearn: 

Id LearnLed, #00111111b 

Id LEARNT, #0FFH 

ret 



; test for 30 seconds timeout 
; if so turn off learn 



; turn off the led 
; set the learn timer 



************************************************************************ 

WRITE WORD TO MEMORY 

ADDRESS IS SET IN REG ADDRESS 

DATA IS IN REG MTEMPH AND MTEMPL 

RETURN ADDRESS IS UNCHANGED 
************************************************************************ 

WRITEMEMORY: 



output the start bit 
set byte to enable write 
output the byte 
reset the chip select 
output the start bit 
set the byte for write 

; or in the address 
output the byte 

; set the first byte to write 
output the byte 

; set the second byte to write 
output the byte 
wait for the ready status 
output the start bit 
set byte to disable write 
output the byte 
reset the chip select 
reset the RP 



push 


RP 


r 


srp 


#LEARNEE_GRP 


t 


call 


STARTB 


r 


Id. 


serial, #00110000B 


f 


call 


SERIALOUT 


i 


and 


csport, #csl 


f 


call 


STARTB 


t 


Id 


serial, #01000000B 


f 


or 


serial, address 




call 


SERIALOUT 


/ 


Id 


serial, mtemph 




call 


SERIALOUT 


/ 


Id 


serial, mtempl 




call 


SERIALOUT 


/ 


call 


ENDWRITE 


r 


call 


STARTB 


/ 


Id 


serial, #OO0000OOB 


f 


call 


SERIALOUT 


f 


and 


csport, #csl 


/ 


pop 


RP 


t 


ret 







************************************************************************ 

READ WORD FROM MEMORY 

ADDRESS IS SET IN REG ADDRESS 

DATA IS RETURNED IN REG MTEMPH AND MTEMPL 

ADDRESS IS UNCHANGED 
************************************************************************ 

READMEMORY: 



push 


RP 






srp 


#LEARNEE_GRP 


> 


set the register pointer 


call 


STARTB 


r 


output the start bit 


Id 


serial, #10000000B 


} 


preamble for read 


or 


serial, address 




; or in the address 


call 


SERIALOUT 


! 


output the byte 


call 


SERIALIN 


t 


read the first byte 


Id 


mtemph, serial 




; save the value in ) 


call 


SERIALIN 


r 


read teh second byte 



A-5Z 



Id mtempl, serial 

and csport,#csl 

pop RP 
ret 



; save the value in mtempl 
reset the chip select 



.************************************************ ************************ 

; WRITE CODE TO 2 MEMORY ADDRESS 

; CODE IS IN RADIOIH RADIOIL RADI03H RADI03L 

.************************************************************************ 
WRITECODE:. 



push 


RP 






srp 


#LEARNEE_GRP 




set the register pointer 


Id 


mtemph, RADIOIH 




transfer radio 1 to the 


Id 


mtempl, RADIOIL 






call 


WRITEMEMORY 


; write 


the temp bits 


inc 


address 




; next address 


Id 


mtemph, RADI03H 


/ 


transfer radio 3 to the 


Id 


mtempl, RADI03L 


/ 




call 


WRITEMEMORY 


; write 


the temps 


pop 


RP 


/ 




ret 






return 



.************************************************************************ 
; CLEAR ALL RADIO CODES IN THE MEMORY 

.***********************************★************************************ 



CLEARCODES : 

push 

srp 

Id 

Id 

Id 

Id 

Id 
CLEARC: 

call 

inc 

cp 

radio 

jr 
clr 
clr 
Id 

call 

pop 

ret 



RP 

#LEARNEE 
RADIOIH, 
RADIOIL, 
RADI03H, 
RADI03L, 
address, 



_GRP 
#0FFH 
#0FFH 
#0FFH 
#0FFH 
#0OH 



WRITECODE 
address 

address, #AddressCounter 

ult, CLEARC 

mtemph 

mtempl 

address, #AddressApointer 
WRITEMEMORY ; 
RP 



set the register pointer 

set the codes to illegal codes 



; "AO 1 



; clear address 0 



; set the next address 

; test for the last address of 



; clear data 

; clear address F 

r 

; return 



.************************************************************************ 

r 

; START BIT FOR SERIAL NONVOL 

; ALSO SETS DATA DIRECTION AND AND CS 

.************************************************************************ 
STARTB: 

and csport,#csl ; 

and clkport, #clockl ; start by clearing the bits 

and dioport,#dol 



Id P2M, # (P2M_INIT+0) 

or csport,#csh 

or dioport, #doh 

or clkport, #clockh 

and clkport, #clockl 

and dioport, #dol 
ret 



set port 2 mode output mode data 
set the chip select 

; set the data out high 

; set the clock 

; reset the clock low 

; set the data low 
return 



END OF CODE WRITE 
************************************** 



ENDWRITE: 

and csport,#csl 
nop 

or csport,#csh 

Id P2M,#(P2M_INIT+4) 
ENDWRITELOOP: 

Id mtemp, dioport 

and mtemp, #doh 

jr z, ENDWRITELOOP 

done 

and csport,#csl 

Id P2M, # (P2M_INIT+0) 

ret 



; reset the chip select 

; delay 

; set the chip select 

; set port 2 mode input mode data 

; read the port 

; mask 

/ if bit is low then loop till we are 

; reset the chip select 

; set port 2 mode forcing output mode 



SERIAL OUT 

OUTPUT THE BYTE IN SERIAL 
SERIALOUT : 



Id P2M, # (P2M_INIT+0) 
Id mtemp, #8H 
SERIALOUTLOOP: 

rlc serial 

carry 



ONEOUT: 



jr nc,ZEROOUT 

or dioport, #doh 

or clkport, #clockh 

and clkport, #clockl 

and dioport, #dol 

djnz mtemp, SERIALOUTLOOP 



ret 
ZEROOUT: 
and 
or 
and 
and 



dioport, #dol 
clkport, ttclockh 
clkport, #clockl 
dioport, #dol 



djnz mtemp, SERIALOUTLOOP 
ret 



set port 2 mode output mode data 
set the count for eight bits 

; get the bit to output into the 

output a zero if no carry 

; set the data out high 

; set the clock high 

; reset the clock low 

; reset the data out low 

loop till done 
return 

; reset the data out low 
; set the clock high 
; reset the clock low 
; reset the data out low 

loop till done 
return 



; SERIAL IN 



: INPUTS A BYTE TO SERIAL 



SERIALIN: 

Id P2M, # (P2M__INIT+4) 

Id mtemp, #8H 
SERIALINLOOP: 

or clkport, #clockh 

rcf 

push mtemp 



Id 
and 
jr 
scf 
DONTSET : 
pop 
rlc 
and 



mtemp, dioport 
mtemp, #doh 
z, DONTSET 



mtemp 
serial 

clkport, #clockl 



djnz mtemp, SERIALINLOOP 
ret 



set port 2 mode input mode data 
set the count for eight bits 

; set the clock high 
reset the carry flag 
save temp 

; read the port 
mask out the bits 

set the carry flag 

reset the temp value 

; get the bit into the byte 
; reset the clock low 

loop till done 
return 



TIMER UPDATE FROM INTERUPT EVERY . 5mS 
*********************** ************************************************* 

Timerllnt : 

push RP 

SRP #TIMER_GROUP 
TOEXT 



dec 
FIND TASK: 
tm 
jr 
tm 
jr 



TOEXT, #00000001B 
nz,TASK1357EXIT 
TOEXT, #00000010B 
nz,TASK26 



IMR, #RadioOf f IMR 

L_A_C,#042H 
uge, RadioOf f Skip 
IMR, # RE TURN IMR 



TASK04: 
or 

radio 

cp 
jr 
or 

RadioOf f Skip: 

cp Count er Active, #0FFH 
jr z, SkipCounterlnc 
inc CounterActive 
SkipCounterlnc : 
ei 

pop rp 
iret 



; save the rp 



test for odd numbers 
if odd 

test for 2 6 or 0 4 
if 2 6 then jump 



turn on the interrupt except the 
test for the learn force limit mode 
turn on the interrupt 

/ test the timer for max 
; increment the counter 



TASK26: 
or 

radio 

cp 
jr 
or 

Radio260ffSkip 
ei 



IMR, #RadioOf f IMR 

L_A_C,#042H 
uge, Radio260f f Skip 
IMR, #RETURN IMR 



turn on the interrupt except the 
test for the learn force limit mode 
turn on the interrupt 



As* 



call STATEMACHINE 

pop rp 

iret 



do the motor function 
return the rp 



TASK1357EXIT 



radio 



or IMR, #RadioOf f IMR 

cp L_A_C,#042H 

jr uge,Radiol3570f fSkip 

or IMR, #RETURN IMR 



Radiol3570ffSkip 
ei 
tm 
jr 
tm 
jr 

call 



TOEXT, #00000001B 
z,ONEMS 

TOEXT, #00000010B 
z,ONEMS 
AUX LIGHT 



; turn on the interrupt except the 

; test for the learn force limit mode 

; turn on the interrupt 

; test for state a 1 in bO 

; test for state a 1 in bl 



ONEMS; 



inc 


VACFLASH 


; flash timer 


tm 


P3,#00000001B 


; test the protector input 


jr 


z, CountActive 


; if zero count the time 


cp 


ProtectorSwitch, #46d 


; test for the min count 


jr 


ult, ZeroProtectorCounter 


; if less the zero counter 


cp 


ProtectorSwitch, #54d 


; test for the max count 


jr 


ugt, ZeroProtectorCounter 


; if greater zero the counter 


clr 


RsTimer 


; turn on the rs232 port 


Id 


ProtectorSwitch, #0FFH 


; one shot 


jr 


ProtectorSwitchDone 




CountActive: 




tern 


ProtectorSwitch, #03FH 


; test for the top 


jr 


z, ProtectorSwitchDone 


; if so skip 


inc 


ProtectorSwitch 


; set the next value 


cp 


ProtectorSwitch, #54d 


; test for too long 


jr 


nz, ProtectorSwitchDone 


; if not then done 


Id 


ProtectorSwitch, #0FFH 


; turn off till next pulse 


jr 


ProtectorSwitchDone 





ZeroProtectorCounter : 

clr ProtectorSwitch 
ProtectorSwitchDone : 

srp #LEARNEE_GRP 
AOBSTEST 
nz, NO FAIL 



dec 
jr 
fail 

AOBSFAIL: 
Id 
Id 
or 

NO FAIL: 

inc 
tern 

jP 
FOURMS : 



AOBSSTATUS, #0FFh 
AOBSTEST, #lld 
AOBSF, #00000001b 

tl25ms 

TOEXT, #00000111B 
nz,TEST125 



; clear the counter 

; set the register pointer 

; decrease the aobs test timer 

; if the timer not at 0 then it didnot 



set the flag for a aobs 

if it failed reset the timer 

set the failed flag bit 

; increment the 125 mS timer 
test for the 111 
if not true then jump 





RPMONES . #00H 


t imer 






z, TESTPERIOD 


dec 


RPMONES 


clr 


RPM COUNT 




RPMTDONE 


TESTPERIOD: 




CD 


RPMCLEAR. #00H 


i r 


nz, RPMTDONE 


ld 


RPMCLEAR. #122d 


rvrl p 5 

o y j.v * 




CD 


RPM COUNT, #50d 


ir 


uat"~ FAREV 


clr 


RPM COUNT 


i t 


RPMTDONE 

IM XXX Jyv/INU 


FAREV: 




Id 


FATTT.TCnnF &07h 


Id 


FARE VFLAG , # 0 8 8 H 

j. iii\u v x j.irivj / TT v v v ii 


Cllltwi 


dO # a LB a C WORKLIGHT 


Id 


REASON, #8 OH 


call 


SET AREV STATE 

k_/ XJ X iilMJ V KJ X xl X XJ 


RPMTDONE • 

UIl 1 _L J_y WIN Hi • 




d6C 


RPMCLEAR 

1 1 w XJ 1.JJJU1 \. 




LIGHT1S. #00 

XJ X VJIX X X <J f TT v v 




z. SKIPLIGHTE 

&$ / uivll XJ X VJJ. 1 X XJ 


dec 


LIGHT1S 


SKIPLIGHTE: 




inc 


R DEAD TIME 

1 X 1/XjXXX/ XXX XXJ 


CD 


RTO, #101D 


J r 


nit- nnunTPR 


clr 


BCODEFLAG 


DONOTCB : 




cp 


RsRto,#0FFH 


jr 


z, SkipRsRtoInc 


inc 


RsRto 



SkipRsRtoInc: 



; test for the end of the one sec 

; if one sec over then test the pulses 

; over the period 

; else decrease the timer 

; start with a count of 0 



; test the clear test timer for 0 

; if not timed out then skip 

; set the clear test time for next 

; test the count for too many pulses 

; if too man pulses then reverse 

; clear the counter 

; continue 

; set the fault flag 

; set the forced up flag 

; turn off light 

; rpm forcing up motion 

; set the autorev state 

; decrement the timer 

; test for the end 

; down count the light time 



; test for the radio time out 
; if not timed out donot clear b 
; else clear the b code flag 



; inc to the ff position 



inc 


RTO 




increment the radio time out 


jr 


nz, RTOOK 


/ 


if the radio timeout ok then skip 


dec 


RTO 


/ 


back turn 


RTOOK: 








TEST125: 








cp 


tl25ms,#125D 




; test for the time out 


jr 


z,ONE25MS 




if true the jump 


cp 


tl25ms,#63D 




test for the other timeout 


jr 


nz,N125 






call 


FAULTB 






cp 


RsTimer, #0FFH 




; test for the end of the rs232 


period 








jr 


z, SkipRslTimerlnc 


} 


if off skip increasing the counter 


inc 


RsTimer 


r 


increase the RsTimer till FF 


cp 


RsTimer,#0FFH 




; test for the end of the rs232 



period 



57 



i t 


z. SkiDRsl Timer Inc 




if off skip increasing the counter 


inc 


RsTimer 




increase the RsTimer till FF 


CD 


RsTimer, #0FFH 




; test for the end of the rs232 


period 








jr 


z, SkipRslTimerlnc 




if off skip increasing the counter 


inc 


RsTimer 




increase the RsTimer till FF 


cp 


RsTimer, #0FFH 




; test for the end of the rs232 


period 








jr 


z, SkipRslTimerlnc 




if off skip increasing the counter 


inc 


RsTimer 




increase the RsTimer till FF 


S k i pR s 1 T ime r I nc : 






N125: 








pup 


RP 






"1 T" O "H" 

J. i. c L 








ONE 2 SMS : 








cp 


RsTimer, #0FFH 




; test for the end of the rs232 


period 








jr 


z, SkipRs2TimerInc 




if off skip increasing the counter 


inc 


RsTimer 




increase the RsTimer till FF 


cp 


RsTimer, #0FFH 




; test for the end of the rs232 


period 








jr 


z, SkipRs2TimerInc 




if off skip increasing the counter 


inc 


RsTimer 




increase the RsTimer till FF 


cp 


RsTimer, #0FFH 




; test for the end of the rs232 


period 








jr 


z, SkipRs2TimerInc 


• 


if off skip increasing the counter 


inc 


RsTimer 




increase the RsTimer till FF 


cp 


RsTimer, #0FFH 




; test for the end of the rs232 


period 








jr 


z, SkipRs2TimerInc 


r 


if off skip increasing the counter 


inc 


RsTimer 


t 


increase the RsTimer till FF 


SkipRs2TimerInc: 






inc 


P8Counter 




increase the min time counter 


cp 


P8Counter, #0d 




; ever 32 sec 


jr 


nz, SkipTempStorage 




* 


inc 


MinTimer 




increase timer 


tm 


MinTimer, #00011111B 




; every 15 min 


jr 


nz, SkipTempStorage 




* 


cp 


MotorTempHi, Past Temp 




test for the change 


jr 


z, SkipTempStorage 




if same do not chancre 


Id 


PastTemp, MotorTempHi 




save new value as past 


jr 


nz, SkipTempStorage 




; store the temp in nonvol 


Id 


STACKFLAG, #0AAH 


t 


save the temperature flag 


SkipTempStorage : 






tm 


P8Counter,#00000111B 




; everv sec 


jr 


nz, SkipTempOperation 




; if not at a sec skip 


cp 


STATE, #ld 




test for the up direction 


jr 


z, Running 




if so then running 


cp 


STATE, #4d 




test for the down direction 


jr 


z, Running 




if so then running 


tm 


P8Counter,#01111111B 




; every 16 sec 


jr 


nz, SkipTempOperation 




; if no then skip decreasing T 


Idle: 








cp 


MotorTempHi, Temperature 




test for the min temp 


jr 


ule, SkipTempOperation 




; if motor cool skip decrease 


Id 


TDi f f erence , MotorTempHi 


• 
f 


read the motor temp and 



ft -5* 



sub 


41 

TDif f erence, Temperature 


/ 


H P 

subtract the 




sub 


MotorTempLo, TDif f erence 


r 


decrease the temperature 




sbc 


MotorTempHi, #00d 








sub 


MotorTempLo, TDif f erence 


r 


decrease the temperature 




sbc 


MotorTempHi, #00d 








jr 


SkipTempOperation 


r 


done 




Running: 










cp 


FORCE_IGNORE, #00 


t 


test for past force ignore 




jr 


nz, TestForStall 




; if not past test for a stall 


AddRunningNumber : 








add 


MotorTempLo, #TempRunIncLo 




: ADD thp t^iriD incrpasp 




adc 


MotorTempHi, #TempRunIncHi 








jr 


SkipTempOperation 








TestForStall: 








cp 


RPM_ACOUNT, #02d 


t 


test for any revs 




jr 


uge , AddRunningNumber 








AddStallNumber : 








add 


MotorTempLo, #TempStallIncLo 




; ADD the temp increase 




adc 


MotorTempHi, #TempStallIncHi 








SkipTempOperation : 








cp 


UpDown,#0FFH 




; test for the max time 




jr 


z,UpDovmSkipInc 


r 


if so dont inc 




inc 


UpDown 








UpDownSkipInc : 








inc 


P5UTD 


r 


increase the up to down flag 




call 


FAULTB 


r 


call the fault blinker 




clr 


t!25ms 




; reset the timer 




inc 


DOG2 


t 


incrwease the second watch dog 




di 










inc 


SDI SABLE 


r 


count off the system disable timer 


jr 


nz,D012 


f 


if not rolled over then do the 


1.2 


sec 










dec 


SDI SABLE 


f 


else reset to FF 




D012: 










cp 


ONEP2, #00 


f 


test for 0 




jr 


z, INCLEARN 


t 


if counted down then increment 


learn 


dec 


ONEP2 


r 


else down count 




INCLEARN : 










inc 


learnt 




; increase the learn timer 




cp 


learnt, #0H 


f 


test for overflow 




jr 


nz, LEARNTOK 


} 


if not 0 skip back turning 




dec 


learnt 








LEARNTOK: 










ei 










inc 


eraset 




; increase the erase timer 




cp 


eraset,#0H 


f 


test for overflow 




jr 


nz, ERASETOK 


r 


if not 0 skip back turning 




dec 


eraset 








ERASETOK: 










pop 


RP 








iret 










fault 


blinker 









FAULTB: 



A- 5* 



inc FAULT TIME 

inc FAULT TIME 

cp FAULTTIME, #090h 

jr ult, FIRSTFAULT 

clr FAULTTIME 

clr FAULT 

cp FAULTCODE, #4d 

jr nz,NotTempFault 

cp MotorTempHi, #DnSetMaxTemp 

j r uge, NotTempFaul t 

clr FAULTCODE 
NotTempFault : 

cp FAULTCODE, #04h 

jr UGE, GOT FAULT 
TESTAOBSM: 

cp STATE, # Id 

jr z,NOAOBS FAULT 

cp STATE, #4d 

jr z,NOAOBS FAULT 

tm AOBSF, #00000001b 

jr z,NOAOBS FAULT 

tm AOBSF, #00000010b 

jr z,NOPULSE 

Id 

jr 

NOPULSE : 

tm 

jr 

cp 

jr 

Id 

jr 
AOBSSH: 

cp 

jr 

Id 

jr 

GOT FAULT: 
Id 

swap 
jr 

NOAOBS FAULT: 

clr 
FIRSTFC: 

clr 

FIRSTFAULT: 
cp 
jr 
Id 
cp 
jr 

cp FAULT , FAULT T IME 
jr ULE, TESTSDI 



increase the fault timer 

increase the fault timer 

test for the end 

if not timed out 

reset the clock 

clear the last 

test for over temp 

if not skip testing for clear 

; test for max temp 
still hot donot clear 



test for call dealer code 
set the fault 

test for door travel 

and if so skip fault code 

test for door travel 

and if so skip fault code 

test for the skiped aobs pulse 
if no skips then no faults 
test for any pulses 
if no pulses find if hi or low 
else we are intermittent 



FAULTCODE, #03h 
GOT FAULT 

P3,#00000010b 
nz, AOBSSH 
FAULTCODE, #01h 
z, GOT FAULT 
FAULTCODE, #01h 
FIRSTFC 

FAULTCODE, #02h 
z, GOT FAULT 
FAULTCODE, #02h 
FIRSTFC 



set the fault 

if same got fault 

; test the input pin 
jump if aobs is stuck hi 
test for stuck low in the past 
set the fault 
set the fault code 



test for stuck high in past 
set the fault 
set the code 



FAULT, FAULTCODE 

FAULT 

FIRSTFC 

FAULTCODE 

AOBSF 



; set the code 

r 

; clear the fault code 

; clear flags 



FAULT, #00 
z , NO FAULT 
FAULT FLAG, #0FFH 
LEARNT, #0FFH 
nz, TESTSDI 



; test for no fault 

; set the fault flag 

; test for not in learn mode 

; if in learn then skip setting 



tm 
jr 
Id 
ret 



FAULTTIME, #00001000b 
nz, BITONE 

LearnLed, #01000000B 



B I TONE: 
Id 

TESTSDI: 
ret 



LearnLed, #01111111B 



NOFAULT : 
clr 
tm 
jr 
Id 



FAULT FLAG 

LearnLed, #01000000B 
z, LeaveLedSet 
LearnLed, #00111111b 



LeaveLedSet: 
ret 



MOTOR STATE MACHINE 



; test the 1 sec bit 

; turn on the led 

; turn off the led 



; clear the flag 

; test for fault blink on 

; turn off the led 



STATEMACHINE: 



xor 


pO, #00001000b 




; toggle aux output 


cp 


DOG2,#8d 




test the 2nd watchdog for 


jP 


ugt, START 


r 


if problem reset 


cp 


STATE, #06d 


r 


test for legal number 


DP 


ugt, start 


t 


if not the reset 


jP 


z, stop 




; stop motor 


cp 


STATE, #03d 


t 


test for legal number 


jp 


z, start 




; if not the reset 


cp 


STATE, #00d 


t 


test for autorev 


jp 


z,auto rev 


f 


auto reversing 


cp 


STATE, #01d 


i 


test for up 


jp 


z,up direction 




; door is going up 


cp 


STATE, #02d 


t 


test for autorev 


jp 


z, up_position 




; door is up 


cp 


STATE/ #04d 


/ 


test for autorev 


jp 


z, dn_direction 




/ door is going down 


jp 


dnjposition 


/ 


door is down 



AUX OBSTRUCTION OUTPUT AND LIGHT FUNCTION 



AUXLIGHT: 
test_light_on: 



cp LIGHT_FLAG, #LIGHT 

jr z,dec_pre_light 

cp LIGHT1S,#00 

jr z,N01S 

cp LIGHTlS,#01d 



test for no flash 
; if not skip 
/ test for timeout 





nz, NOIS 


; if not skin 


xor 


pO, #WORKLIGHT 


; toaale liaht 


clr 


LIGHT1S 


; oneshoted 


N01S : 






CO 


FLAS H FLAG , # FLAS H 




i r 


nz. dec ore liaht 




decw 


FLASH DELAY 


; 250 ms period 


ir 


n7,ripr nrp ] i crht 




xor 


pO,#WORKLIGHT 


; toaale liaht 


Id 


FLASH_JDELAY_HI , #FLASH_HI 




Id 


FLASH DELAY LO, # FLASH LO 




dec 


FLASH_COUNTER 




jr 


nz,dec pre light 




clr 


FLASH FLAG 




dec_pre_light : 




cp 


LIGHT_TIMER_HI, #0FFH 


? test for the timer ianore 


jr 


z, exit_light 


; if set then ignore 


dec 


PRE_LIGHT 


; dec 3 byte light timer 


jr 


nz,exit light 


• 


decw 


LIGHT_TIMER 




jr 


nz, exit__light 


; if timer 0 turn off the ligl 


and 


pO,# A C LIGHTJ3N 


; turn off the light 


exit_light : 






ret 




; return 


AUTO_REV ROUTINE 


auto_rev: 






; clr 


CounterActive 


; reset the .5 second counter 


disable 






cp 


FAREVFLAG, #08 8H 


; test for the forced up flag 


jr 


nz, LEAVEREV 




and 


pO,# A LB A C WORKLIGHT 


; turn off light 


LEAVEREV: 






.IF 


E21 




xor 


P1,#00000001B 


; Kick the external dog 


.ELSE 






WDT 




; KICK THE DOG 


.ENDIF 




call 


HOLDFREV 


; hold off the force reverse 


Id 


LIGHT FLAG, #LIGHT 


; force the light on no blink 


and 


pO,# A LB A C MOTOR UP #"C MOTOR DN ; disable motor 


di 






decw 


AUTO DELAY 


; wait for .5 second 


decw 


BAUTOJDELAY 


wait for .5 second 


ei 
jr 


nz, arswitch 


; test switches 


or 


p0,#00001000b 


; set aux output for FEMA 


Id 


REASON, #4 OH 


; set the reason for the change 


DP 


SetUpDirStateNoTemp 


; set the state 


arswitch: 






cp 


WIN_FLAG,#00h 


; test for window active 


jr 


z, exit_auto_rev 


; if inactive skip commands 



?9-tf 



^noauixi aqq. asBaioap i 



aoaoi ^saq. iou op dn 3011 aauii^ it 
auop ioj jauiT^ ^sa; 



sasjnd 2 3^3- ssaj. 101 ^saq. 
lunoouidi :}saq. ^ouop :}ou it 
aaouBx aoioi aqq. JO pua aqq. 011 ^sa} 

3q6xT pub 1030U1 aqi uo urn; 
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^qfixi aqq. uo urn} 
jauixq. ABjap aqq. asBaioux 
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auop 101 :;saq. 

Aeia:r uMOp aiqBSxp 
5[UT"[q ou uo ^qfixi aqq. aoaoi 
asiaAai aoioi aqq. 110 pioq 



:}aA psaj Aiouiaiu 101 isaq. 

DOG 3HX MDIM 
6op iBuiaq.xa aqq. 5fOx>i ' 

jaqunoo puooas g - aqq q.asai i 



XflO 3NIX WdH 



oap 

sonoa an" 



aid ms dn 4533 'zu 
00#'3HON9I~33HO3 

q90# / aaoox r invi 

H30# 'XNHOOY Hdtf 
WdtfdHdlMS'zu 

to#'3hondi aonoa 
No""iH9n# Iv dfftfoxow# 'o<* 

P0Z# /r T3aiOH 
NO J,HDI r r# / 0<3 

laaxow 

NOdfl'z 

Hdao# /f iaaxow 



do 

:WdHdfldI>IS 
PI 

do 

do 

:330dfl 

JO 

:NOdn 

do 

JO 

oux 
do 



Na hoxow Ov aiv#'o<J 
AanacnoH 



anux^uoodfi'z 
3X¥XS 'sssaauo 



puB 
PT 

TIHO 

anuxq.uoodn 
qai 

do 

aiawa- 
icem 
asia* 

910000000#'ld Jox 
123 31' 

a^qBSip 

aAX^ovJa^unoo ijo • 
:uoxqoaixp — dn 



an 9NI09 hooq 



0 jo qunoo b qqxM qiB^s 
oas g* asiaAai vadj jBa^o 
510 pioq aq} ^as 



XNflOD WdH 
P22I# 'OTaiOWdtf 
PfrfrZ#'S3NOWdtf 



q.ai 

JLJD 

PT 
PT 

:A3H3aTOH 



uin^ai 



do^s aqq. os it 
puBuiuioo oxpBJt b 101 isaq. 
puBiuuioo oxpBJt sb uosBai aqq. }as 
doqs uaqq. os it 
puBuiuioo b 101 q.saq. 
piiBuruioo 04 uosBaj aqq. ^as 



qai 

: Aa;f~o:inB~:}xxa 
3XYXS~dOXS~X3S 'z dC 

Hwo#'awo oiovh do 

H0T#'NOSY3H PT 
3XYXS dOXS X3S'z dC 

MS aKO#'vxva MS do 
H00#'NOSV3tf PT 



dec BRPM_TIME_OUT / decrease the timeout 

ei 

jr z, failed_up_rpm 

di ; turn off the interrupt 

push UP_FORCE_LO ; save the force setting 

push UP_FORCE_HI 

sub UP_FORCE_LO / RPM_PERIOD_LO 

sbc UP_FORCE_HI , RPM_PERIOD_HI 

tm UP_FORCE_HI,#10000000B ; test high bit for sign 

jr z, test_up_sw_pop ; if the rpm period is ok then switch 

pop UP_FORCE_HI ; reset the force setting 

pop UP_FORCE_LO 

ei 

f a i 1 e d__up__r pm : 

Id REASON, #20H / set the reason as force 

jp SET_STOP_STATE 
test_up_sw_pre : 

dec FORCE_PRE / dec the prescaler 

tm FORCE_PRE, #00000001B / test for odd 12 

jr nz, test_up_sw ; if odd skip 

di 

dec FORCE_ IGNORE 

dec B F0RCE_I GNORE 

jr test_up_sw ; 
test_up_sw_pop : 

pop UP_FORCE_HI ; reset the force setting 

pop UP_FORCE_LO 

ei 

test_up__sw: 

ei ; enable interrupt 

cp L_A_C/#044H ; test for learning up limit 

jr z,get_sw ; if so skip testing the limit 

cp POSITIONJil, #07FH ; test for the middle range 

jr nz,TESTUPN ; if not test the up limit normal 

cp POSITION_LO,#00 ; test for the limit 

jr Z/UPLIM ; if so then jump 

TESTUPN: 

di 

push POSITION_LO 

push POSITIONJil 

sub POSITIONJLO,UP_LIM_LO ; find the difference from position 

sbc POSITION JKI,UP_LIM_HI 

cp POSITION__HI, #0FFH ; test for a within 256 of after limit 

jr z,UP_LIM_SET 

pop POSITION_HI ; reset the position 

pop POSITION_LO 

ei 

jr get_sw ; if not at the limit test 

switches 
UP_LIM_SET: 

pop POSITION_HI ; reset the position 

pop POSIT ION_LO 

ei 



UPLIM: 


• 






Id 


REASON, #50H 




set the reason as limit 


DP 


SET_UP_POS_STATE 


» 




get_sw: 








cp 


WIN_FLAG,#00h 


/ 


test for the flag active 


jr 


z,test up time 




; if inactive skip command 


Id 


REASON, #1 OH 


/ 


set the radio command reason 


cp 


RADIO_CMD, #0AAH 


/ 


test for a radio command 


DP 


z,SET STOP STATE 




if so stop 


Id 


REASON, #00H 


/ 


set the reason as a command 


cp 


SW_DATA, #CMD_SW 




test for a command condition 


jr 


ne,test up time 






DP 


SET STOP STATE 






'test up time: 






Id 


REASON, #7 OH 


) 


set the reason as a time out 


decw 


MOTOR TIMER 


; decrement motor timer 


DP 


2, SET STOP STATE 






exit_up_dir 








ret 




/ 


return to caller 


DOOR UP 


up_position: 






.IF 


E21 






xor 


P1,#00000001B 




/ Kick the external dog 


.ELSE 








WDT 




/ 


KICK THE DOG 


.ENDIF 






cp 


FAREVFLAG, #088H 


r 


test for the forced up flag 


jr 


nz, LEAVELIGHT 






and 


p0,# A LB A C WORKLIGHT 




; turn off light 


jr 


UPNOFLASH 


i 


skip clearing the flash flag 


LEAVE LIGHT : 








Id 


LIGHT_FLAG,#00H 


f 


allow blink 


UPNOFLASH: 








and 


p0,# A LB A C MOTOR UP A & 


# A C MOTOR DN ; disable motor 


cp 


SW_DATA, #LIGHT_SW 


; light 


sw debounced? 


jr 


z, work_up 


/ 




cp 


UpDown, #UpDownTime 




; test for the direction delay 


jr 


ult, UpPosRet 






Id 


REASON, #1 OH 




set the reason as a radio command 


cp 


RADIO CMD, #0AAH 




test for a radio cmd 


jr 


z, SETDNDIRSTATE 




if so start down 


Id 


REASON, #00H 




set the reason as a command 


cp 


SW DATA, #CMD SW 




command sw debounced? 


jr 


Z, SETDNDIRSTATE 




if command 


UpPosRet : 








ret 








SETDND IRS TATE : 






Id 


ONEP2,#10D 


r 


set the 1.2 sec timer 


jP 


S E T_DN_D I R_S TATE 






work_up: 








clr 


SW_DATA 






xor 


p0,#WORKLIGHT 


r 


toggle work light 


Id 


LIGHT TIMER HI,#0FFH 


• 


set the timer ignore 



upj?os_ret : 
ret 



; return 



DOOR GOING DOWN 



dn direction: 



; clr 
disable 



CounterActive 



; reset the .5 second counter 



L109P5 



L10: 



L9P5: 



L86: 



L6: 



L8: 



.IF 


E21 






xor 


P1,#00000001B 




; Kick the external dog 


.ELSE 








WDT 






KICK THE DOG 


.ENDIF 






cp 


OnePass, STATE 


» 


test for memorv read vet 


jr 


z,DownContinue 






ret 








>ntinue: 






cp 


L A C,#044H 


f 


Dnrrincr setiio move the 


jr 


ule,NORM_DN 


f 


oresent oosition into the 


push 






limit while traveling down 


srp 


# FORCE GRP 






.IF 


P5BlockFlag 






Id 


DN_L IMJHI , po s i t ion Jii 




; 


Id 


DN LIM LO.oosition lo 






tm 


po7#ooTooooob 




: test for 10-9 5 or 8- 


i r 


nz, L8 6 




f y cot icuuvtivii 


tm 


P0,#00010000B 




; test for 10 vs 9.5 


jr 


nz, L9P5 


r 




sub 


DN LIM LO, #L10Lo 


r 


subtract .5 inches 


sbc 


DN_LIM_HI, #L10Hi 






jr 


GotLimitPosition 






sub 


DN LIMJLO, #L9P5Lo 


. 
t 


subtract . 5 inches 


sbc 


DN_LIM_HI, #L9P5Hi 






jr 


GotLimitPosition 






tm 


P0,#00010000B 




; test for 10 vs 9.5 


jr 


nz, L8 


r 




sub 


DN LIM LO, #L6Lo 


r 


subtract .5 inches 


sbc 


DN_L IMJHI, #L6Hi 






jr 


GotLimitPosition 






sub 


DN LIM LO, #L8Lo 


f 


subtract .5 inches 


sbc 


DN_LIM_HI, #L8Hi 






jr 


GotLimitPosition 






.ELSE 








Id 


DN_L IM_H I , po s i t i on_hi 




/ 


Id 


DN LIM LO, position_lo 






.ENDIF 







GotLimitPosition: 



pop rp 
NORMJDN: 

call HOLDFREV 

clr FLASH_FLAG 

Id LIGHT_FLAG, #LIGHT 

and pO,# A LB A C MOTORJJP 

cp MOTDEL, #0FFH 

j r z , DNON 

inc MOTDEL 

or pO,#LIGHT_ON 

cp MOTDEL, #20d 

jr ule, DNOFF 

DNON: 



hold off the force reverse 

turn off the flash 

force the light on no blink 

turn off motor up 

test for done 

if done skip delay 

increase the delay timer 

; turn on the light 
test for 40 seconds 
if not timed 



FORCE_ IGNORE, #01 
nz, SKIPDNRPM 
RPM_ACOUNT, #02H 
ugt, SKIPDNRPM 
FAULTCODE,#06h 



or p0,#MOTOR_DN A | #LIGHT_ON 

DNOFF: 

cp 
jr 
cp 
jr 
Id 

SKIPDNRPM: 

cp FORCE_IGNORE, #00 

jr nz, test_dn_sw_pre 

TEST_DOWN_FORCE : 
di 

dec RPM_TIME_OUT 

dec BRPM_TIMEJ3UT 
ei 

j r z , f a i 1 ed_dn_r pm 
di 

push DN_FORCE_LO 

push DN_FORCE_HI 

sub DN_FORCE__LO , RPM_PERIOD_LO 

sbc DN_FORCE_HI , RPM_PERIOD_HI 

tm DN_FORCE_H I,#10000000B 

j r z , t e s t_dn_s w_pop 

pop DN_FORCE_HI 

pop DN_FORCE_LO 

ei 

f a i 1 e d_dn_r pm : 

cp L_Aj:,#47h 

jr nz,NoStoreDown 

cp AOBS^FLAG, #01h 

jr z,NoStoreDown 

cp STATE, #00 

jr nz,NoStoreDown 
StoreUpLimError : 

clr UP_LIM_HI 

clr UP_LIM_LO 

sub UP_LIM_LO, position_lo 

sbc UP_LIM_HI, posit ion__hi 

call FIND_WINDOW 
NoStoreDown: 

Id REASON, #2 OH 

jp SET__AREV__S TATE 
test dn sw_pre: 



; turn on the motor and light 

test fro the end of the force ignore 
if not donot test rpmcount 
test for less the 2 pulses 



; test timer for done 

; if timer not up do not test force 



; decrease the timeout 
; decrease the timeout 



save the value 



test high bit for sign 

if the rpm period is ok then switch 

reset the value 



; test for the state for storage 

; if not then continue 

; test for the pass point set 

; if passed donot set the limit 
; test for past state 0 
; if past 0 donot set the limit 



/ get the - of the count 

find the window 

; set the reason as force 
; set the state 



fi-6 7 



H t^r* 


FOPPF PRF 


/ 


tm 


FORCE PRE, #00000001B 




J L 


ri7 t"pc;t" Hn sw 

1 1 , U C O L, V^ii. J. CV¥ 




di 






UCL- 






deC 


B FORCE IGNORE 




J L 


LCD L Liii o W 




Hn 


pup . 




pop 


DM FORPF HI 

LJVi £ \jr\\*rS-i ill 


/ 


pop 


nNT^FHP TF~"t ,H 

£ \JL\\^ Hi JJW 




ei 






_dn_sw : 






O "I 






cp 


LAP #044H 


/ 


J L 


uy L / uaii ow uii 




cp 


ftrYRQQT'ATF iiOfl 


/ 


jr 


y\ «7 /^a 1 1 c I . T /"5 Y*\ 

il^/OaJLX OW U.I1 




di 






push 


POSITION__LO 


9 


puioii 


PO^TTTON HI 

IT -L i. -L WIN 1 X J. 




Silt) 


POSITION~~LO, DN LIM LO 


t 




P03TTT0Nf~HT r>N~~T,TM~HT 

XT\JO X X iulN il J. , J-/1N Lili'l IT J. 


f 


cp 


IT WO 111 WIN ni / 7l v u 


/ 


J r 








POSITION HI 




pop 


rwoIlJ.wJN LiU 




ei 






jr 


call sw_dn 


r 


[M_SET : 






pop 


POSITION HI 




pop 


POSITIONJLO 




ei 







; if odd skip 



; reset the value 



turn on the interrupt 

test for the auto position setting 

; if so skip testing limit 
test for looking at the zeroer 



save the position 



; reset the position 



DOWNLIM: 



.IF DownToLimits 

cp CMD_J)EB,#OFFH 
jr z, dn_lim_stop 

.ENDIF 



cp 
jr 
cp 
jr 

dn_lim stop: 
Id 
cp 
jr 
Id 
jr 

TESTRADIO: 
cp 

radio 

jr 



AOBSSTATE,#00 
nz,AOBSFUNCTION 
AOBS_FLAG, #00 
Z,A0BS ERROR 

REASON, #50H 
CMDJ3EB, #0FFH 
nz, TESTRADIO 
REASON, #90H 
TEST FORCE I G 

LAST__CMD, #00 

nz, TESTFORCEIG 



; test for the command held 
; if so skip aobs 



; test for the finish of the counter 

; AOBS happened near the limit 

; test for the flag for pass point 

error reverse 

; set the reason as a limit 

; test for the switch still held 

; closed with the control held 



; test for the last command being 
; if not test force 



0-6* 



cp 


BCODEFLAG, #077H 


jr 


nz, TESTFORCEIG 


Id 


REASON, #0A0H 


TES T FORCE IG: 


cp 


FORCE_I GNORE , #00H 


i r 


z , NOAREVDN 


Id 


REASON, #60h 


in 
J f 


SET AREV STATE 


NOAREVDN : 




and 


pO,# A LB A C MOTOR DN 


in 
J f 


SET DN POS STATE - 


call_sw_dn: 




cp 


WIN_FLAG, #00h 


jr 


z, test_dn_time 


Id 


REASON, #1 OH 


cp 


RADIO CMD, #0AAH 


DP 


z,SET AREV STATE 


Id 


REASON, #00H 


cp 


SW DATA, #CMD SW 


jP 


Z,SET AREV STATE 


test dn time: 


Id 


REASON, #7 OH 


decw 


MOTORJTIMER 


DP 


z,SET AREV STATE 


cp 


OBS_FLAG, #0CCH 


jr 


nz, exit dn dir 


AOBS FUNCTION: 


.IF 


AOBSBypass 


cp 


LASTJ3MD, #00 


jr 


z, OBSTESTB 


cp 


CMD_DEB, #0FFH 


jr 


nz, OBSAREV 


ret 




.ENDIF 


OBSAREV: 




Id 


FLASH FLAG, #0FFH 


Id 


FLASH COUNTER, #20 


Id 


FLASH DELAY HI , # FLASH HI 


Id 


FLASH DELAY LO, # FLASH LO 


Id 


REASON, #30H 


jP 


SET_AREV_STATE 


OBSTESTB: 




cp 


BCODEFLAG, #077H 


jr 


nz, OBSAREV 


exit dn dir: 


ret 




AOBS ERROR : 




Id 


REASON, #0F0h 


jp 


SE T_AREV_S TATE 



; test for the b code flag 

; set the reason as b code to limit 

; test the force ignore for done 

; a rev if limit before force enabled 

; early limit 

; set autoreverse 



; set the state 

; test for window active 

; if inactive then skip command 

; set the reason as radio command 
; test for a radio command 
; if so arev 

; set the reason as command 
test for command 



; set the reason as timeout 
decrement motor timer 

r 

; test the flag for count 
; if not then exit 

; if the aobs can be bypassed from 

; a held command or held B code 

; test for the last command from radio 

; if last command was a radio test b 

; test for the command switch holding 

; if the command switch is not holding 

; do the autorev 

; otherwise skip 



; set flag 

; set for 10 flashes 

; set for .5 Hz period 

; set the reason as autoreverse 



; test for the b code flag 

; if not b code then arev 

; return 

; set the reason as no pass point 



DOOR DOWN 



dn_position: 

.IF E21 



xor 


P1,#00000001B 


; Kick the external dog 


.ELSE 






WDT 




; KICK THE DOG 


.ENDIF 




cp 


FAREVFLAG, #08 8H 


; test for the forced up flag 


jr 


nz, DNLEAVEL 


• 


and 


dO.# a LB a C WORKLIGHT 


; turn off light 


i r 


DNNO FLASH 


; skip clearing the flash flag 


DNLEAVEL : 






Id 


LIGHT FLAG, #00H 


; allow blink 


DNNO FLASH : 






and 


pO,# A LB A C MOTOR UP A & 


# A C MOTOR DN ; disable motor 


CD 


SW DATA, #LIGHT SW 


; debounced? light 


jr 


z, work_dn 




cp 


UpDown, #UpDownTime 


; test for the .5 seconds 


direction 






jr 


ult, DnPosRet 




Id 


REASON, #1 OH 


; set the reason as a radio command 


cp 


RADIO CMD, #0AAH 


; test for a radio command 


jr 


z, SETUPDIRSTATE 


; if so go up 


Id 


REASON, #00H 


; set the reason as a command 


cp 


SW DATA, #CMD_SW 


; command sw pressed? 


jr 


Z, SETUPDIRSTATE 


; if so go up 


DnPosRet : 






ret 






SETUPDIRSTATE: 




Id 


ONEP2, #10D 


; set the 1.2 sec timer 


jP 


SET__UP_DIR_STATE 




work dn: 






~ clr 


SW DATA 




clr 


RADIO CMD 




xor 


pO, # WORKLIGHT 


; toggle work light 


Id 


LIGHT TIMER HI,#0FFH 


; set the timer ignore 


dn_pos_ret : 






ret 




; return 


STOP 


stop: 






.IF 


E21 




xor 


P1,#00000001B 


; Kick the external dog 


.ELSE 






WDT 




; KICK THE DOG 


.ENDIF 




cp 


FAREVFLAG, #088H 


; test for the forced up flag 


jr 


nz, LEAVESTOP 




and 


pO,# A LB A C WORKLIGHT 


; turn off light 


LEAVESTOP: 






Id 


LIGHT FLAG, #00H 


; allow blink 


and 


pO,# A LB A C M0T0R_UP A & 


# A C MOTOR^DN ; disable motor 


cp 


SW DATA, #LIGHT_SW 


; debounced? light 



P-7C? 





^,WO.L.K. bLUp 


} 


cp 




• t*A<?1~ for* t"hp S ^prnnds 


H T Y~ Q 'f~ 1 nn 






J x 






Id 


REASON, #10H 


; set the reason as radio command 




RADIO CMD. #0AAH 


; test for a radio command 


1 D 


z,SET~DN DIR STATE 


; if so go down 


1 H 

J- VJ. 


r\i_j^i.o wxn / tt vj \j n 


• Qpf hhp rpa^on a*? a command 

/ Ov U LilC I CQOulI CIO CL Willi LlC<-ii\-i 


op 


c;W HATA &PMD 


r pnirnnsnd sw nrpsspH^ 5 




z.SET DN DIR STATE 


; if so ao down 








ret 












~ clr 


SW DATA 




clr 


RADIO CMD 




xor 


pO,#WORKLIGHT 


; toggle work light 


Id 


LIGHT TIMER HI, #0FFH 


; set the timer ignore 


stop__ret : 






ret 




/ return 



SET THE AUTOREV STATE 



SET AREV STATE: 



NOSD: 



clr 


SW DATA 


clr 


RADIO_CMD 


di 




cp 


L_A_C,#47H 


jr 


nz,NOSD 


add 


P32 MAX LO, ForceAddLo 


adc 


P32 MAX HI,ForceAddHi 


Id 


DN FORCE HI,P32 MAX HI 


Id 


DN_FORCE_LO, P32_MAX_LO; 


Id 


STATE, #AUTO REV 


Id 


BSTATE, #AUTO_REV 


ei 




jP 


SET_ANY 



clear the switch data 
clear the radio command 

test for the store force data 

ADD the force adder 

transfer the force 



; if we got here, then reverse motor 
; if we got here, then reverse motor 



SET THE STOPPED STATE . 



Temp_SET_STOP_STATE : 

Id FAULTCODE,#04d 

j r SetStopStateNoWrite 

Mem_SET_STOP_STATE : 

Id FAULTCODE,#05D 



SetStopStateNoWrite: 

Id MinTimer, #01D 
clr SW_DATA 
clr RADIO CMD 



; set the fault blink 



; set the fault blink 



; set next write min out 
; clear the switch data 
; clear the radio command 



di 



Id STATE, #STOP 

Id BSTATE,#STOP 
ei 

jp SetAnyNoWrite 



SET STOP STATE: 



Id MinTimer, #01D ; set next write min out 

clr SWJDATA ; clear the switch data 

clr RADIO CMD ; clear the radio command 



di 

Id STATE, #STOP 

Id BSTATE,#STOP 
ei 

jp SET_ANY 



SET THE DOWN DIRECTION STATE 



SET DN DIR STATE: 



clr 
clr 
call 
di 



SW__DATA 

RADIO_CMD 

TempMeasure 



clear the switch data 
clear the radio command 
measure the temperature 



.IF 


ThermalProtectorFlag 




tm 


P2,#10000000B 


; test for the switch state 


jr 


z, SkipDownThermalProtector 


; skip if switch gnded 


Id 


REASON, #0B0H 


; set the reason as thermal 


cp 


Motor TempHi, #DnSetMaxTemp 


; test if we need to skip for 


max temp 






jr 


uge, Temp_SET_STOP_STATE 





•ENDIF 

SkipDownThermalProtector : 

Id STATE, #DN_DI RECTI ON 
Id B STATE, #DN__DI RECTI ON 
ei 

clr FAREVFLAG 
cp L_A_C,#042h 

limits 

jp UGE, SET_ANY 
cp DN_LIM_HI,#00h 
jr nz, TestSetDownBits 
cp DN_LIM_LO, #00h 
jr nz, TestSetDownBits 
j p Mem_S E T_S T OP_S TATE 
TestSetDownBits: 

cp DN__LIM_HI , #0FFh 
jr nz, DownBitsOk 
cp DN_LIM_LO, #0FFh 
jr nz, DownBitsOk 



energize door 
energize door 

one shot the forced reverse 

test for learning the force and 

if so then set the direction to down 
test for stuck bits 

test for stuck bits 

if the bits are stuck then stop unit 
test for stuck bits 
test for stuck bits 



A- 72- 



DP 

DownBitsOk 
cp 
jr 
clr 

DnSkipMemFaultClear 
di 

push 
push 
sub 



Mem SET STOP STATE 



FAULTCODE, #5d 
nz, DnSkipMemFaultClear 
FAULTCODE 



sbc 

cp 

jr 

pop 

pop 

ei 

DP 

POS DN LIM: 



pop 
pop 
ei 
jr 



DN_LIM_HI 
DN_LIM_LO 

DN_LIM_LO, POSITION_LO 
DN_LIM_HI, POSITION_HI 
DN_LIM_HI, #00 
z,POSJDN_LIM 
DN_LIM_LO 
DN_LIM_HI 

SET ANY 



DN_LIM_LO 
DN_LIM_HI 

SetUpDirStateNoTemp 



; if the bits are stuck then stop unit 

; test for memory fault 
; if so then clear 



; save the limits 

/ find the difference from position 

; test for a 256 < number 
; reset the limit 



; reverse the direction if too close 
; to the down limit 
; reset the limit 



SET THE UP DIRECTION STATE 



SET JJP_DIR_STATE : 

call TempMeasure ; measure the temperature 

SetUpDirStateNoTemp : 

clr SW_DATA ; clear the switch data 

clr RADIO_CMD ; clear the radio command 

di 



.IF 


ThermalProtectorFlag 




tm 


P2,#10000000B 


; test for the switch state 


jr 


z, SkipUpThermalProtector 


; skip if switch gnded 


cp 


STATE, #AUTO_REV 


; if the state is autoreverse allow 


jr 


z, SkipUpThermalProtector 




Id 


REASON, #0B0H 


; set the reason as thermal 


cp 


MotorTempHi, #UpSetMaxTemp 


; test if we need to skip for 


max temp 






jp 


uge, Temp_SET_STOP_STATE 





.ENDIF 
SkipUpThermalProtector: 

Id STATE, #UP_DIRECTION 
Id BSTATE, #UP_DIRECTION 
ei 

cp L_A_C,#042H 
jr UGE, SET__ANY 
Ref reshUpLimit : 

cp UP_LIM_HI,#00h 
jr nz, TestSetUpBits 
cp UP_LIM_LO, #00h 



; test for learning the limits 

; skip testing the limit if learning 

; test for stuck bits 

; test for stuck bits 



/P-73 



jr 


nz, TestSetUpBits 


DP 


Mem SET STOP STATE 


TestSetUpBits : 


cp 


UP_LIM_HI,#OFFh 


jr 


nz, UpBitsOk 


cp 


UP_LIM_LO, #0FFh 


jr 


nz, UpBitsOk 


jP 


Mem_SET_STOP__STATE 


UpBitsOk: 




cp 


FAULTCODE, #5d 


jr 


nz, UpSkipMemFaultClear 


clr 


FAULTCODE 


UpSkipMemFaultClear : 


jr 


SET_ANY 



; if the bits are stuck then stop unit 

; test for stuck bits 

; test for stuck bits 

; if the bits are stuck then stop unit 

; test for memory fault 

; if so then clear 

; set the direction 



SET THE UP POSITION STATE 



SET UP POS STATE: 



clr SW_DATA 

clr RADIO__CMD 

Id MinTimer,#01D 



UPNS: 



di 
cp 
jr 

add 
adc 
Id 
Id 

Id 
Id 
ei 
jr 



L_A_C,#4 9h 
nz,UPNS 

P32_MAXJLO, ForceAddLo 
P32_MAX_HI, ForceAddHi 
UP_FORCE_HI, P32_MAX_HI 
UP_FORCE_LO, P32_MAX_L0 

STATE, #UP_POSITION 
BSTATE, #UP_POSITION 

SET ANY 



SET THE DOWN POSITION STATE 



SET DN POS STATE: 



clr 


SW DATA 


clr 


RADIO_CMD 


Id 


MinTimer, #01D 


di 




Id 


STATE, #DN POSITION 


Id 


BSTATE, #DN_POSITION 


ei 




cp 


WIN FLAG, #00 


jr 


nz, SET_ANY 


inc 


WIN FLAG 


jr 


SET_ANY 



clear the switch data 
clear the radio command 

; set next write min out 



; test for the store 



ADD the adder 
transfer the force 



clear the switch data 
clear the radio command 

; set next write min out 



load new state 
load new state 



; test for the win 
if on skip 

else turn on the window 



SET 


ANY STATE 






SET_ANY : 








; clr 


CounterActive 




; reset the .5 second counter 


disable 








clr 


UpDown 


/ 


clear the direction timer 


Id 


STACKFLAG, #0FFH 


/ 


set the flag 


SetAnyNoWrite: 






cp 


L_A_C, #42H 


/ 


test for in learn mode 


jr 


uge, SkipReadAny 


) 


if so skip reading force 


SkipReadAny: 






clr 


AOBS_FLAG 


r 


clear the flag 


clr 


AOBSF 


r 


clear any pending faults 


clr 


AOBS STATE 


r 


reset the state counter 


clr 


AOBSRPM 


r 


clear any past aobs count 


clr 


OBS FLAG 


t 




clr 


AOBSB 






cp 


L_A_C,#4CH 


f 


test for learing down dir 


jr 


z, SkipForceClear 






clr 


MAX_F HI 


} 


clear the force reading 


clr 


MAX_F_LO 


• 
r 




clr 


P32 MAX LO 


f 




clr 


P32 MAX HI 






SkipForceClear : 






clr 


SW DATA 


r 


clear the switch data 


inc 


L_A_C 


f 


set the LAC to the next state 


di 








clr 


RPM COUNT 


r 


clear the rpm counter 


Id 


AUTO DELAY HI,#AUTO HI 


* 


set the .5 second auto rev timer 


Id 


AUTO DELAY LO, #AUTO LO 


r 




Id 


BAUTO DELAY HI,#AUTO HI 


t 


set the .5 second auto rev timer 


Id 


BAUTO DELAY_LO, #AUTO_JLO ; 






Id 


FORCE_IGNORE, #ONE_SEC 


r 


set the force ignore timer to one 


sec 








Id 


BFORCE_IGNORE , #ONE_SEC 


f 


set the force ignore timer to one 


sec 








ei 








ClearRadioCmd : 






clr 


RADIO CMD 


; 


one shot 


clr 


RPM ACOUNT 


; 


clear the rpm active counter 


Id 


LIGHT TIMER HI,#SET TIME HI 


; 


set the light period 


Id 


LIGHT TIMER LO, #SET TIME_LO 


; 




Id 


PRE LIGHT, #SET TIME PRE 


; 




Id 


MOTOR TIMER HI,#MOTOR HI 






Id 


MOTOR TIMER LO, #MOTOR LO 






Id 


STACKREASON, REASON 




save the temp reason 


Id 


LIGHTS, PO 


r 


read the light state 


and 


LIGHTS, #WORKLIGHT 


t 




jr 


nz, lighton 


r 


if the light is on skip clearing 


lightof f : 








clr 


MOTDEL 


t 


clear the motor delay 


light on: 








ret 









THIS THE AUXILARY OBSTRUCTION INTERRUPT ROUTINE 



AUX_OBS : 

.IF E21 

and imr,#11111011b 

500uS 

. ELSE 

and imr,#11110111b 

500uS 

. ENDIF 

Id A0BSTEST,#11D 
or AOBSF, #00000010B 
clr AOBSSTATUS 
iret 



; turn off the interupt for up to 



; turn off the interupt for up to 



reset the test timer 
set the flag for got a aobs 
clear the aobs set state 
return from int 



THIS IS THE MOTOR RPM INTERRUPT ROUTINE 
Direction for counter is the LSB of the state 



RPM: 



push 


rp 


srp 


#RPM_GROUP 


Id 


rpm_temp__hi, TO EXT 


Id 


rpm temp lo,T0 


tm 


IRQ, #00010000B 


jr 


2, RPMTIMEOK 


RPMT IMEERROR : 


tm 


rpm temp lo, #10000000B 


jr 


2, RPMTIMEOK 


dec 


rpm_temp_hi 


resync 




RPMTIMEOK: 




.IF E21 


and 


imr,#11110111b 


500uS 




. ELSE 




and 


imr,#11111011b 


500uS 





.ENDIF 

Id rpm_2past_hi , rpm_pas t_hi 

Id rpm_2past_lo, rpm_past_lo 

Id rpm^ pas t_hi , rpm_t empjhi 

Id rpm_past_lo, rpm_temp_lo 

Id rpm_dif f_hi, rpm_2past_hi 
difference 

Id rpmjdif f_lo, rpm_2past_lo 

sub rpm_dif f_lo, rpmj?ast_lo 

sbc rpm_dif f_hi, rpm_past_hi 

tm rpm_dif f_hi, #10000000b 



motor speed 
save current pointer 
point to these reg 
read the timer extension 
read the timer 

test for a pending interrupt 
if not then time ok 

test for timer reload 

if no reload time is ok 

if reloaded then dec the hi to 



; turn off the interupt for up to 



; turn off the interupt for up to 



; save the past for testing 
; transfer the present into the past 
; transfer the past into the 
/ 

; find the difference 
/ test for neg number 



Id 

difference 
Id 
sub 
sbc 



z,RPM_TIME_FOUND 
rprajdif f_hi, rpm_past_hi 



rpm_dif f_lo, rpm_past_lo 
rpm_dif f_lo, rpm_2past_lo 
rpm_dif f_hi, rpm_2past_hi 
RPM_TIME_FOUND: 

Id rpm_period_hi, rpmjiif f_hi 

period 

Id rpm_period__lo, rpm_dif f_lo 



; if the time is correct then jump 
; transfer the temp into the 



; find the difference 

; transfer the difference to the 



; Found the period test for range 



cp 
6.144mS 
jP 

counting 

clr Up Down 



rpm_period_hi, #12D 
ult,SKIPC 



; test for a period of at least 
; if the period is less then skip 
; clear the direction timer 



; Position counter 



cp Count erActive, #0FFH 

jr z,POSDONE 

cp STATE, #ld 

jr z,DECPCOUNT 

cp STATE, #2d 

jr z,DECPCOUNT 

cp STATE, #6d 

jr z,DECPCOUNT 



INCPCOUNT : 
inc 

byte 

jr 
inc 

byte 

jr 



POSIT ION_LO 

nz, POSDONE 
POSITIONJHI 

POSDONE 



; test for the counter active 
skip if inactive 
test the up direction state 
if so then dec the counter 
test the up direction state 
if so then dec the counter 
test the STOP state 
if so then dec the counter 



increase the position counter low 



if done return 

increase the position counter hi 



DECPCOUNT : 





cp 


POSITION LO, #00 


r 


test for 


the roll number 




jr 


Z, DECPROLL 


r 


if so the branch 




dec 


POSIT ION JLO 


r 


decrease 


the position counter low 


byte 


jr 


POSDONE 








DECPROLL: 












dec 


POSITION^LO 


f 


decrease 


the position counter low 


byte 














dec 


POSITIONJHI 


r 


decrease 


the position counter hi 


byte 


jr 


POSDONE 









POSDONE : 



fl-77 



; Enable the interrupts 



ei 



Find the max force in the period 



CD 


FORCE IGNORE, #00 




test for the force ignore active 


i r 


nz,NOT DELAY 






CD 


rpm period hi, MAX F HI 




test for a new max force 


ir 


ultTNOT MAX 




if not the max force then skiD 


uDdatina 








CP 


rpm period lo,MAX F LO 






ir 


ult.NOT MAX 


• 




SaveHicrher : 








Id 


MAX_F_HI, rpmj>eriod_hi 




transfer the max force data 


Id 


MAX F LO. rnm Deriod lo 






CD 


LAC. #4BH 


t 


test for learn limit and force 


i r 


uTtTNOT MAX 




if not then skip 


push 


RP 




set the rp 


srp 


#ForceTable2 




/' 


Id 


@ f o r ce addr e s s , MAX_F_HI 


• 

r 


save the value into table 


inc 


forceaddress 




; 


Id 


@ f orceaddres s , MAX_F_LO 


* 




dec 


forceaddress 






pop 


RP 






NOT MAX: 








tm 


POSITIONJLO, #001111b 




test for the 32th step 


jr 


nz,NOTJDELAY 




transfer to direction if L-A-C > 


Id 


P32 MAX HI, MAX F HI 




transfer the value 


Id 


P32_MAX_LO, MAX_F_LO 






NOT DELAY: 









Force table entry 



N4C: 



cp L_A_C,#4CH 

jr nz,N4C 

cp POSITION_LO, #00 

jr nz,N4E 

clr MAX_F_HI 

clr MAX_F_L0 

dec ForceAddress 

dec ForceAddress 

cp ForceAddress, #ForceOHi 

jr uge,N4E 

Id ForceAddress , #ForceOHi 

cp L_A_C, #4 EH 

jr nz,N4E 

cp POS I T I ONJLO , #0FFH 

jr nz,N4E 

Clr MAX_F_HI 

clr MAX_F_LO 

inc ForceAddress 



test for the down direction 
; if not then skip around 

test for the position to increment 
; if not then. skip 

clear the max to get max 

for the position window 

; find the next address 

test the range 
if so skip 



test for the up direction learn 
; if not then skip around 

test for the position to increment 
; if not then skip 

clear the max to get max 

for the position window 

; increment the pointer 



inc ForceAddress 



; increment the pointer 



cp 


ForceAddress, #Forcel4Hi 


/ 


test 


for 


range 


jr 


ule,N4E 






if 


in range skip 


Id 


ForceAddress, #Forcel4Hi 


/ 


else 


force address 


N4E: 














; Look for the pass point 


cp 


AOBS STATE, #00 




test 


for 


aobs ok 


jr 


z, AOBSRPMS 


/ 


if so skip the rpm count time out 


inc 


AOBSRPM 


} 


increment the timer counter 


cp 


AOBSRPM, #MAXAR 


r 


test 


for 


too 


many 


jr 


nz, AOBSRPMS 


f 


if not skip 




RPMOBS : 














Id 


OBS_FLAG, #0CCH 


r 


else 


set 


the 


flag for aobs 


AOBSRPMS : 














cp 


AOBS STATUS, #00 


r 


test 


for 


a obs blocked 


jr 


nz, OBSBLOCK 


f 


if the protector is blocked the jiu 


inc 


AOBSNB 


r 


increase 


the 




distance 














jr 


AOBSDONE 












OBSBLOCK: 














INC 


AOBSB 


/ 


increase 


the 


aob blocked distance 


AOBSDONE: 














cp 


AOBS STATE, #07 


f 


test 


for 


the 


max state 


jr 


ule, STATEOK 


f 


if in bounds 


then continue 


clr 


AOBS STATE 












STATEOK: 














cp 


AOBS STATE, #00 


* 


test 


for 


the 


state number 


jr 


z, stateO 












cp 


AOBS STATE, #01 


f 


test 


for 


the 


state number 


jr 


z, statel 












cp 


AOBSSTATE,#02 


9 


test 


for 


the 


state number 


jr 


z, state2 












cp 


AOBSSTATE,#03 


f 


test 


for 


the 


state number 


jr 


z, state3 












cp 


AOBSSTATE,#04 


f 


test 


for 


the 


state number 


jr 


z, state4 












cp 


AOBS STATE, #05 


9 


test 


for 


the 


state number 


jr 


z, stateS 












cp 


AOBSSTATE,#06 


9 


test 


for 


the 


state number 


jr 


z, state6 












state7 : 














cp 


L_A_C, #4BH 


f 


test 


for 


learn limits 


jr 


ule,NoForceAddress 












Id 


ForceAddress, #ForcelHi 


9 


set the force address 


cp 


L_A_C,#4CH 


f 


test 


for 


the 


down direction 


jr 


nz,UpForceAdd 












Id 


ForceAddress, #Force0Hi 


t 


set the force 


i address 



UpForceAdd: 

clr MAX_F_HI 
clr MAX_F_LO 

NoForceAddress : 

clr AOBSRPM 



; clear the max force 



; clear all rpm counts during 



cp L_A_C,#42H 

jr uge, SkipFlagTest 



; test for learn mode 

; if so winflag is useless 



fl-7S 



cp WIN_FLAG, #00 

jr z,ClearPassPoint 

SkipFlagTest : 

cp STATE, #04d 

jr nz, SkipPassPoint 

ClearPassPoint : 
di 

clr POSITION_LO 
clr POSITION HI 



; test for the first cycle 



; test for traveling down 

; if not the skip the pass point clear 



; clear the position reg 



ei 

SkipPassPoint : 

Id AOBS_FLAG, #01 d 
AS DONE 



state4: 



J* 
I: 
cp 
jr 



AOBSB, #00 
TNI 



; set the flag for got pass point 



; test for not blocked 



state3: 
cp 
jr 

state6: 
state2: 
cp 

TNI: 

jr 

inc 

jr 



AOBSNB,#MINAR 
TN2 



AOBSNB,#00 

z, STATE DONE 
AOBS STATE 
STATEDONE 



; test for the min blockage 



; test for not blocked 

; if still waiting loop 
; set the next state 



AOBSB, #MINAR 
ult, STATEDONE 



stateS: 
statel : 
cp 

TN2: 

jr 
AS DONE: 

inc AOBS STATE 
clr AOBSNB 
clr AOBSB 
jr STATEDONE 

stateO: 
cp 
jr 

push 
srp 
cp 
jr 
clr 
clr 
sub 
sbc 



AOBSB, #00 
Z, STATEDONE 
rp 

#FORCE_GRP 
L_A_C, #47h 
nz,NOSTORE 
UP_LIM_HI 
UP_LIM_LO 

UP_LIM_LO, position_lo 
UP LIM HI, posit ionjii 



; test for the min blockage 

; if not try again 

; set the next state 

; clear the not blocked 

; clear the blocked 



test for the first blockage 

if no block skip 

save the rp 

set the new value 

test for the state for storage 

if not then continue 



/ get the - of the count 



call FIND WINDOW 



; find the window 



NOSTORE: 
di 



push 


position lo 




save the lo position 


CD 


win flag7#oo 




; test for the window being 


active 








jr 


z,WIN_SKIP 




if inactive skip 


cp 


position_hi, #00 




; test for pos or neg 


i r 


z, WINTEST 




jump if the value POS < 256 


negwin ! 








CP 


position hi,#0FFH 


. 


test for < 256 


ir 


nz, WINERROR 




if not then a error 


com 


positionJLo 


r 


neg the value 


WINTEST: 








CD 


position lO/PWINDOW 




; compare the pos value of 


window 








i r 


ULE, WIN SKIP 




; if within then ok 


WINERROR: 








Id 


0BS_FLAG, #0CCH 


f 


set the flag for aobs 


pop 


position_lo 


r 


reset the position 


pop 


rp 


e 


reset the rp 


jr 


STATEDONE 


r 


done 


WIN_SKIP: 








DOD 


Dosition lo 




reset the position 








reset the rp 


inc 


AOBS STATE 




set the next state 


STATE DONE : 










"Mia "n^Gjct nni nt" pnd 






TULS: 








INCRPM: 








di 








inc 


RPM COUNT 


r 


increase the rom count 


inc 


RPM~ACOUNT 


t 


increase the rpm count 


ei 








SKIPC: 








di 








Id 


rpm time out,#15D 


r 


set the rpm max period as 30mS 


Id 


BRPM_TIME_OUT, #15D 


r 


set the rpm max period as 30mS 






f 


if rpm not updated by then reverse 


ei 








SKIPPEDGE; 








pop 


rp 


t 


return the rp 


iret 




r 


return 



/ Find 


the window size from the up 


limit setting 


FIND WINDOW: 






Up 






test for the shortest distance 


J *- 


UGT, S100D 


/ 


if so set window to 100D 


cp 


UP LIM HI,#0F8h 


; 


test for the mid distance 


jr 


UGT,S150D 


/ 


if so then set the window to 150D 


Id 


PWINDOW,#200D 


r 


set the window to 200D 


ret 








S150D: 








Id 


PWINDOW,#150D 




set the window to 150D 


ret 








S100D: 








Id 


PWINDOW,#100D 


r 


set the window to 100D 


ret 








; Read 


the force according to the position 










push 


RP 


r 


set the RP 


srp 


#ForceTable2 






Id 


forcetemp, POSITIONJil 


r 


get the present position of the 


operator 








com 


lUILCl Cllip 


f 


i nvprt - f hp nnnihpr 


cp 


forcetemp, #10H 




; test for the set to address 


VulUCO 








J 


uge, SetAddressOO 






i nc 


forcetemp 




add 1 for address 


Up 


forcetemp, #0DH 




test for in range 


J - 1 - 


uge, SetAddressD 




if not set the top address 


iJC LI vlUC • 












9 


*2 


rlc 


forcetemp 


r 




add 


forcetemp, #ForceOHi 




; add the start address 


"nil c;T*l 


forcetemp 


r 


save value 


di 








Id 


UP_FORCE_HI, @ force temp 


r 


read the value 


inc 


forcetemp 


f 


save address 


J- LI 


UP FORCE LO, @forcetemp 


/ 




add 


UP FORCE LO, ForceAddLo 


f 


add adder 


adc 


UP_FORCE_HI, ForceAddHi 


f 




POP 

ei 


forcetemp 


i 


reset address 


di 








Id 


DN_FORCE_HI, @forcetemp 


r 


read the value 


inc 


forcetemp 






Id 


DN FORCE LO, @forcetemp 


f 




add 


DN FORCE LO, ForceAddLo 


f 


add adder 


adc 


DN_FORCE_HI, ForceAddHi 






ei 
pop 


RP 


r 


then return 



ft- 



V 



SkipForceRead: 
ret 



SetAddressOO: 

clr forcetemp 
jr SetForce 



; set the address 



SetAddressD: 

Id forcetemp, #0DH 
jr SetForce 



; set the address 



Read the Limits 



ReadLimits: 



push rp 



srp 

Id 

Id 

down limit 
call 
di 
Id 
Id 
ei 



#LEARNEE_GRP 

SKIPRADIO, #0FFH 

address, #AddressDownLimit 

READMEMORY 

DN_LIM_HI , mtemph 
DN_LIM_LO,mtempl 



set the RP to LEARNEEJ3RP 

turn off the radio 

; set non vol address to the 



read the value 



recall from nonvolital 



Id address, #AddressUpLimit ; set non vol address to the up limit 

call READMEMORY ; read the values stored in memory 

di 
Id 
Id 
ei 
clr 



pop 
ret 



UP_LIM_HI, mtemph 
UP_LIM_LO,mtempl 

SKIPRADIO 
rp 



; update from nonvolital 



turn on the radio 
reset the RP 



************************************************************************ 
Timer 2 Interrupt used either for RS232 or Wall control 
Rs232 is set to 416uS Wall control is set to 300uS 
Wall control state machine 
Status 

0 = If not low set gotswitch 

Switch from discharge to charge P3 = 1001 XXXX 
Test for hi after 4uS switch = open 
Test for hi after 30uS switch = light 

1 = Test for hi after 300uS switch = learn 

10 ~ Test for hi after 3mS switch = vacation 
Else switch = cmd 

11 = Switch state to discharge P3 = 1111 XXXX 



I- II 



; 15 = Switch state to neg charge if led is to be lit 

P3 = 0110 XXXX 

Else 

Switch state to no charge P3 = 0000 XXXX 

26 = Switch state to discharge 

29 = Set Status to 0 

.*********************************★**** 

Timer2Int : 



; tm 


P2 / #01000000B 


; test the RS232 only switch 


jr 


z,SkipLockRS232 




jr 


TestRs232 ; 


if switch then just RS232 


;SkipLockRS232: 




cp 


RsMode,#0232d 


test for rs232 mode set 


jr 


z,TestRs232 


if set do 


cp 


RsTimer, #0FFH 


; test the mode for RS232 Vs 


switches 






jr 


z, TestSwitches 


; if FF then test the switches 


TestRs232: 






cp 


TIMirror, #RsPeriod 


; test the period 


jP 


nz, SetRsPeriod 


; if set wrong then reset 


call 


RS232 ; 


call the routine 


iret 


; return 


TestSwitches: 




cp 


STATUS, #0FFH ; test for the start position 


jP 


nz, SkipVacFlashing 


; if not skip testing vacation 


flashing 






cp 


VACFLAG, #00H ; test for out of vacation 


jP 


z, SkipVacFlashing , 


if out don't blink 


tm 


VACFLASH, #10000000B ; test for the 128mS 


jP 


z, SkipVacFlashing ; if out don't blink 


Id 


STATUS, #30D ; set for the blink 


SkipVacFlashing: 




inc 


STATUS ; set to the next period 


cp 


TIMirror, #SwPeriod 


; test the period 


jP 


nz, SetSwPeriod 


; if set wrong then reset 


cp 


STATUS, #0d 


State jump table 


jP 


Z,STATUS0 




cp 


STATUS, #ld 




jp 


z, STATUS 1 




cp 


STATUS, #10d 




jp 


z, STATUS 10 




cp 


STATUS,* lid 




jp 


Z, STATUS 11 




cp 


STATUS, #15d 




jp 


z, STATUS 15 




cp 


STATUS, #2 6d 




jp 


z,STATUS26 



cp STATUS, #2 9d 

jp uge,STATUS29 
StatusRet : 

iret 
STATUSO: 

tm PO,#110OOOOOB 

jr z, SkipSettingGotSwl 

inc GotSwitch 
SkipSettingGotSwl : 

Id P01M, #00000100B 

or P0,#1100000B 

Id P01M, #P01M_INIT 

nop 

nop 

nop 

nop 

tm PO,#11000000B 

jr z, SkipSettingGotSw2 

inc GotSwitch 
SkipSettingGotSw2 : 



; test for both inputs low 

; if low skip seting 
turn off the switches 

; use hist to test resistors 
set mode p00-p03 out p04-p07out 

; turn both pins hi 
set mode p00-p03 out p04-p07in 
delay 



; test for both inputs low 
; if low skip seting 
turn off the switches 

; use hist to test resistors 



push 


TEMP 


r 




Id 


TEMP, P3 






and 


TEMP, #00001111B 




turn both off 


or 


TEMP,#10010000B 




turn on charge 


Id 


P3,TEMP 






pop 


TEMP 






nop 




f 


delay 


tm 


PO,#10000000B 




; test 4 uS later 


jr 


nz,GotOpen 


t 


if so then open 


nop 








nop 








nop 








nop 








nop 








nop 








nop 








nop 








nop 








nop 








nop 








nop 








nop 








nop 








nop 








tm 


PO,#10000000B 




; test 30uS out 


DP 


nz, GotLight 


f 


if so then light 


iret 









STATUS 1: 

tm PO,#10000000B ; test 300uS later 

jp nz,GotLearn ; if so then got the learn 

iret 



STATUS10: 



tm P0,#10000000B 
jp nz,GotVac 
jp GotCmd 



; test 3mS later 
; if so then got the vac 



STATUS11: 
or 

iret 



P3,#11110000B 



; turn all on discharge 



STATUS15: 
and 
tern 

DP 
tm 

jr 
inc 

SkipLedlnc: 
or 
iret 

STATUS26: 
or 

iret 



P3,#00001111B 
LearnLed, #00111111b 
z, StatusRet 
LearnLed, #11000000B 
nz, SkipLedlnc 
LearnLed 

P3, #011000008 



P3,#11110000B 



; turn off both outputs 

; test for off 

; if so then return 

; test for radio blink mode 

; if not skip inc timer 



; turn on the led 



; set the discharge state 



STATUS29: 
cp 
jr 

Status29: 
clr 
Id 

iret 
BlinkTime: 
cp 
jr 
cp 
jr 
cp 
jr 
jr 



STATUS, #30D 
uge, BlinkTime 

GotSwitch 
STATUS, #0FFH 



STATUS, # 6 0D 
uge, Status29 
STATUS, #45D 
ult,STATUSll 
STATUS, #56D 
uge, STATUS 11 
STATUS 15 



; test for the blink 



; clear got a switch flag 
; reset the machine 
; return 

; test for the end of the run 

; if so return 
; test for the led period 

; if not then discahrge 



; else set the program led 



SetSwPeriod: 

Id TIMirror, #SwPeriod 
jr SetTlPeriod 

SetRsPeriod: 

Id TIMirror, #RsPeriod 

SetTlPeriod: 

Id Tl, TIMirror 
Id TMR,#00001110B 
iret 



; set the period 



; set the period 



; turn on the timer 
; return one shoted 



GotOpen: 

call DecrementCmd 

call DecrementLight 

call DecrementLearn 

call DecrementVacation 



; open decrement all 



iret 
GotLight : 
cp 



GotSwitch, #00 



; light 

/ test for got switch 



iret 
DoLight : 

call 
call 
call 
call 
iret 
GotLearn: 
cp 
jr 

iret 
DoLearn: 

call 
call 
call 
call 
iret 
GotVac : 
cp 
jr 

iret 

DoVac: 

call 
call 
call 
call 
iret 
GotCmd: 
cp 
jr 

iret 

DoCmd : 

call 
call 
call 
call 
iret 



z, DoLight 



DecrementCmd 
IncrementLight 
DecrementLearn 
DecrementVacation 



GotSwitch, #00 
z, DoLearn 



DecrementCmd 
DecrementLight 
IncrementLearn 
DecrementVacation 



GotSwitch, #00 
z, Do Vac 



DecrementCmd 
DecrementLight 
DecrementLearn 
IncrementVacation 



GotSwitch,#00 
z, DoCmd 



IncrementCmd 
DecrementLight 
DecrementLearn 
DecrementVacation 



if not then do the light 
else return 



; test for got switch 
if not then do the learn 
else return 



; test for got switch 
if not then do the Vac 
else return 



; test for got switch 
if not then do the cmd 
else return 



IncrementCmd: 

inc GotSwitch 

cp CMD_DEB, #0FFH 

jr z, SkipCmdlnc 

inc CMD_DEB 

inc BCMD_DEB 

cp CMD__DEB, #9d 

jr nz, SkipCmdlnc 



set the got a switch flag 
test for at the top 
; if so then skip 

inc 

test for cmd 

; if not the skip Cmd 



Id 
Id 
CmdSet : 
cp 
jr 
Id 
jr 

NotlnLearn: 



CMD_DEB,#0FFH 
BCMD_DEB, CMD_DEB 

L_A_C,#42H 
ult, NotlnLearn 
L_A_C,#042h 
SkipCmdlnc 



set deb back to top 



; test for learn seq 

; if not in learn skip 
; set the next level of force 
; skip command 



ft-*? 



cp LEARNT, #OFFH 

jr z,NLearnACmd 

Id L_A_C,#042h 

Id FORCES, #03 

Id LearnLed, #00111111b 

Id LEARNT, #0FFH 

Id LEARNDB, #0FFH 

jr SkipCmdlnc 

NLearnACmd: 

Id LAST_CMD, #055H 

Id SWJDATA, #CMD_SW 

SkipCmdlnc: 
ret 



; test for learn mode 

; if not 
; set the next level 
; set the starting force to lowest 

; turn off the led 
; set the learn timer 
; set the learn debounce 
; DO NOT issue a command 



set the last command as wall cmd 
set the switch data as command 



DecrementCmd: 

inc 

cp 

jr 

dec 

dec 

cp 

jr 

clr 

clr 
SkipCmdDec: 

ret 



GotSwitch 
CMD_DEB, #00 
z, SkipCmdDec 
CMD_DEB 
BCMD_DEB 
CMDJDEB, #0F6H 
nz, SkipCmdDec 
CMD_DEB 
BCMD DEB 



; set the got a switch flag 
; test for the bottom 

; if so then skip 

; dec 



test for release 
if not done 



IncrementLight : 


cp 


LIGHT_DEB,#0FFH 


jr 


z, SkipLightlnc 


inc 


LIGHT DEB 


cp 


LIGHTJDEB,#9d 


jr 


nz, SkipLightlnc 


LightSet: 




cp 


LEARNT, #0FFH 


jr 


z, NotlnLearnLight 


cp 


STATE, #2d 


jr 


nz , No t InLearnLight 


JogUp : 




Id 


Jog, #055H 


jr 


SkipLightlnc 


NotlnLearnLight : 


Id 


LIGHT DEB/ #0FFH 


Id 


SWJDATA, #LIGHT_SW 



SkipLightlnc: 
ret 



; test for at the top 

; if so then skip 

; inc 

; test for light 

; if not skip light cmd 

; test for learn mode 

; test for up position 



; set the jog 



; set deb to top 
; set the switch data 



DecrementLight : 

cp LIGHT_DEB,#00 
jr z, SkipLightDec 
dec LIGHTJDEB 
cp LIGHT_DEB, #0F6H 
jr nz, SkipLightDec 
Clr LIGHT_DEB 

SkipLightDec: 
ret 



; test for the bottom 

; if so then skip 

/ dec 

; test for release 
/ if not deon 



ft~S* 



IncrementVacat ion : 



CD 


VAC DEB, #0FFH 




test for at the top 


i r 
J 


z * SkiDVacInc 




; if so then skio 


inc 


VAC DEB 




inc 


CD 


VAC~DEB, #55d 




; test for vacation 


jr 


nz, SkipVacInc 




; if not exit 


VacSet : 








cp 


LEARNT, #0FFH 




tpst for Iparn mode* 


jr 


z, NotlnLearnVac 






cp 


STATE, #2d 




test for up position 


jr 


nz , Not InLearnVac 






JogDown : 








Id 


Jog, #0AAH 




jog down 


jr 


SkipVacInc 






NotlnLearnVac: 






Id 


VAC DEB, #0FFH 


/ 


set deb 


Id 


VACCHANGE , # 0 AAH 


t 


set the toggle data 



• SkipVacInc: 
ret 



DecrementVacation: 



cp 


VAC_DEB,#00 


; test for the bottom 


jr 


z, SkipVacDec 


; if so then skip 


dec 


VAC DEB 




cp 


VAC_DEB, # (0FFH-55D) 


; test for reset level 


jr 


nz, SkipVacDec 


; if not then return 


clr 


VAC_DEB 


; reset the debouncer 


SkipVacDec: 






ret 






IncrementLearn: 




cp 


STATE, #AUTO_REV 


; test for motion states 


jr 


z, SkipLearnlnc 


; if so then do not inc 


cp 


STATE, #UP_DIRECTION 




jr 


z, SkipLearnlnc 




cp 


STATE, #DN_DIRECTION 




jr 


z, SkipLearnlnc 




cp 


LEARNDB, #0FFH 


; test for at the top 


jr 


z, SkipLearnlnc 


; if so then skip 


inc 


LEARNDB 


; inc 


cp 


LEARNDB, #9D 


; test for learn activation 


jr 


nz, SkipLearnlnc 


; if not then exit 


LearnSet : 






Id 


LEARNDB, #0FFH 


; set deb 


clr 


LEARNT 


; clear the learn timer 


Id 


LearnLed,#10000000B 


; turn on the learn led 


cp 


VACFLAG, #00H 


; test the flag for out of vacation 


jr 


z, SkipVacChange 




Id 


VACCHANGE, #0AAH 


; if in vacation change it 


SkipVacChange: 




SkipLearnlnc: 




ret 






DecrementLearn 





A- 2* 



cp LEARNDB , #00 

jr z, SkipLearnDec 

dec LEARNDB 

cp LEARNDB, #0F6H 

jr nz, SkipVacDec 

clr LEARNDB 



SkipLearnDec: 
ret 



; test for the bottom 

; if so then skip 

/ dec 

; test for reset level 

; if not then return 
; reset the debouncer 



r 

; Temperature measurement 
************************************** 

r 

TempMeasure : 

.IF E21 

xor PI, #00000001B 

.ELSE 
WDT 

. ENDIF 
di 

Id ForceAddHi, #0FFH 
Id ForceAddLo, #0FFH 
Id TMR,#00001011B 
or P2, #00000001b 
Id TMR, #00001010B 
LoopTillTempl: 

tm P2,#00100000B 
j r nz, TempMeasured 
cp T0,#010H 
j r ug t , LoopT i 1 1 Temp 1 
.IF E21 

xor P1,#00000001B 

.ELSE 
WDT 

.ENDIF 
LoopTillTemp2 : 



tm 


P2, #00100000B 


jr 


nz, TempMeasured 


cp 


TO, #0EEH 


jr 


ult, LoopTillTemp2 


dec 


ForceAddHi 


cp 


ForceAddHi, #0EFH 


jp 


ule, ErrorSetMaxTemp 


jr 


LoopTillTempl 



************+*******************+* 
********************************** 

; Kick the external dog 
; KICK THE DOG 

; clear the value 

; load the timer 

; turn on the temperature rc 

; run 

; test for done 
; test for lower roll 

; Kick the external dog 
; KICK THE DOG 

; test for done 
; test for lower roll 

* 

; should be two test for too long 
; if so set error 
; loop till done 



TempMeasured: 

Id ForceAddLo, TO ; set the value 

com ForceAddHi 
com ForceAddLo 

; house cleaning 

Id AOBSTEST, #11D ; reset the test timer 

or AOBSF, #00000010B ; set the flag for got a aobs 



Glr AOBS STATUS 



; clear the aobs set state 



.IF E21 

xor P1,#00000001B 
.ELSE 
WDT 
. ENDIF 
.IF RTD 
TempOk : 

ForceAddHi, #00d 
z,MsbOO 

ForceAddHi, #01d 
z,T10 

ForceAddHi, #02d 
nz, Skip2EE 
ForceAddLo, #0EEH 
ult,T10 



cp 
jr 
cp 
jr 
cp 
jr 
cp 
jr 

Skip2EE: 
cp 
jr 
cp 
jr 
jP 



MsbOO: 



MsbLT 
T85: 



T60: 



T35: 



T10: 



ForceAddHi, #lld 
ult,Tnl5 
ForceAddHi, #14h 
ult, Tn40 
ErrorSetMaxTemp 



cp ForceAddLo, #07h 

jr ule, ErrorSetMaxTemp 

cp ForceAddLo, #31h 

jr ult,T85 

cp ForceAddLo, #64h 

jr ult,T60 

cp ForceAddLo, #0FAH 

jr ult,T35 

jr T10 



Id Temperature, #125D 

Id ForceAddHi, #000 

Id ForceAddLo, #0FAH 

j r ExitTemperature 



Id Temperature, #100D 

Id ForceAddHi, #00 1H 

Id ForceAddLo, #00EH 

jr ExitTemperature 



Id Temperature, #75D 

Id ForceAddHi, #001H 

Id ForceAddLo, #022H 

jr ExitTemperature 



Id Temperature, #50D 
Id ForceAddHi, #001H 
Id ForceAddLo, #040H 



; Kick the external dog 
; KICK THE DOG 

test for count < 100H 
test for count < 200H 
test for 2ee 



test for < HOOh 
test for < 1400H 
else error 



; test for the bounds 

; if so then error 

; test for 85 deg 

; if so then jump 

; test for 60 deg 

; if so then jump 

; test for 35 deg 

; else it is 10 deg 



set the temperature 
set the force 

test motor for too cold and exit 



set the temperature 
set the force 

test motor for too cold and exit 



set the temperature 
set the force 

test motor for too cold and exit 



set the temperature 
set the force 



ExitTemperature 



; test motor for too cold and exit 



Tnl5: 

Id 
Id 
Id 
jr 

Tn40: 

Id 
Id 
Id 
jr 

.ELSE 
TempOk: 
cp 
jr 
cp 
jr 



Temperature, #25D 
ForceAddHi, #001H 
ForceAddLo, #05EH 
ExitTemperature 



Temperature, #0D 
ForceAddHi,#001H 
ForceAddLo, #090H 
ExitTemperature 



ForceAddHi, #00d 
z,LessThen512 
ForceAddHi, #01d 
z,LessThen!024 



set the temperature 
set the force 

test motor for too cold and exit 



set the temperature 
set the force 

test motor for too cold and exit 



; test for the first 512uS 
; test for the 1024 limit 



DP 



ErrorSetMaxTemp 



; else set to max 



LessThen512 : 
cp 
jr 
cp 
jr 
jr 



ForceAddLo, #0D0H 
ule, ErrorSetMaxTemp 
ForceAddLo, #0EEH 
ult,T85C 
T60C 



LessThenl024: 
cp 
jr 
cp 
jr 
cp 
jr 
cp 
jr 
cp 
jr 
jr 



ForceAddLo, #0BH 
ult,T60C 
ForceAddLo, #2 6H 
ult,T35C 
ForceAddLo, #43H 
ult,T10C 
ForceAddLo, #60H 
ult,TN15C 
ForceAddLo, #80H 
ult,TN40C 
ErrorSetMaxTemp 



T85C: 



T60C: 



T35C: 



Id Temperature, #125D 
jr ExitTemperature 



Id Temperature, #100D 
jr ExitTemperature 



Id Temperature, #75D 
j r ExitTemperature 



T10C: 



test for too low 

; if so set error values 
test for 85C 
if so set the temp 



test for 60 C 

if so set 

test for 35C 

if so set the temp 

test for 10C 

if so set the temp 

test for -15C 

if so then set the temp 

test for -40C 

if so then set the temp 



; set the temperature 

; test motor for too cold and exit 



; set the temperature 

; test motor for too cold and exit 



; set the temperature 

; test motor for too cold and exit 



Id 
jr 



Temperature, #50D 
ExitTemperature 



; set the temperature 

; test motor for too cold and exit 



TN15C: 



TN40C: 



Id 
jr 

Id 



Temperature, #25D 
ExitTemperature 



Temperature, #0D 
ExitTemperature 



; set the temperature 

; test motor for too cold and exit 



; set the temperature 

; test motor for too cold and exit 



.ENDIF 



ErrorSetMaxTemp : 
.IF E21 

xor P1,#00000001B 

• ELSE 

WDT 

.ENDIF 

Id ForceAddHi, #00h 

Id ForceAddLo, #0FFH 

Id Temperature, #85d+4 0D 

ExitTemperature : 

cp MotorTempHi , Temperature 

jr uge,MotorTempDone 

Id MotorTempHi , Temperature 

MotorTempDone : 

and P2,#11111110b 

. IF ForceTempCompFlag 
.ELSE 

Id ForceAddHi, #00h 
Id ForceAddLo, #0FFH 
. ENDIF 

.IF TempMeasureFlag 
.ELSE 

Id Temperature, #85d+40D 
.ENDIF 

ei 
ret 



; Kick the external dog 
; KICK THE DOG 
; set the force to . 5mS 

; set the temperature to the max 

; test for the motor value too low 
; if hoter or = don't change 
; else set - 

; turn off the temperature rc 
; set the force to .5mS 



set the temperature to the max 



; reenable the interrupts 



.end 



